A  PROCESS  CONTROL  SYSTEM 
FOR  HEWLETT-PACKARD  SERIES 
21XX  COMPUTERS 


d 

a 

c 


J.  R.  Bowman,  G.  Q.  Thorton, 
and  D.  E.  Carroll 


81  4  15  002 


V 


ERRATA  SHEET 
Special  Report  8 1  - 1 

A  PROCESS  CONTROL  SYSTEM  FOR  HEWLETT-PACKARD  SERIES  2 1 XX  COMPUTERS 
J.  R.  Bowman,  G.  Q.  Thorsen,  and  D.  E.  Carrel  1 


The  fol lowing 

correct  ions 

should  be  made  to  subject  report. 

PAGE  NO. 

LINE  NO. 

CORRECTION 

12 

2 

V^lue  vice  vlaue 

12 

9 

F0  1  S  5  vice  FOL  1  S  5 

1L 

11 

values  range  from  2^  through  2^...  ^ . 
vice  values  range  from  20  through  2  ... 

18 

13 

Delete  range  of  -32788  to  32767 

21 

11 

Where  X  is  a  state  number  0  <  X  <  31. 
vice  Where  X  is  a  state  number  0  F  X  F  31 

23 

12 

IF  1  R  3  OR  AF  5  S  vice  IF  1  R3  OR  AF  5  S. 

28 

11  (right 

ST 3  AF  10  T  ST  1  TH  2  VAR  A=A  +  1$. 

column)  vice  ST3  AF  10  '  ST  1  TH  2  VAR  A=A+I$. 


Approved  by  Released  by 


Ashton  Graybiel ,  M  .D . 
Assistant  for  Scientific  Programs 


Commander  W .  M .  Houk ,  MC ,  USN 
Commanding  Officer 


Naval  Aerospace  Medical  Research  Labjratory 
Naval  Air  Station 
Pensacola.  Florida  32508 

y?  6  ■ .  - 


; 


/ 


i*~T  ~  i>-»  rfftiirtilii 


SUMMARY  PAGE 


THE  PROBLEM 

The  Vision  Research  Division  of  the  Naval  Aerospace  Medical  Research  Labora¬ 
tory ,  needed  a  computer  system  to  control  psychophysical  experiments  that  would 
remove  the  need  for  in-depth  knowledge  of  complex  computer  languages  by  investi¬ 
gators.  It  was  required  that  this  system  utilize  a  Hewlett-Packard  2100  series 
computer . 

FINDINGS 

The  State  Diagram  System  (SDS)  was  developed  to  solve  this  problem. 

SDS  is  a  tool  that  can  be  used  by  investigators  in  designing  and  running  psy¬ 
chophysical  experiments  on  Hewlett-Packard's  HP-2100  series  computers.  SDS . 
as  presently  designed ,  is  capable  of  running  only  those  experiments  that  use 
discrete  inputs  and  outputs .  The  system  offers  the  investigator  a  high  level 
language  with  which  he  is  already  familiar  or  can  easily  learn,  1’  us  removing 
the  burden  of  solving  these  types  of  problems  using  more  complex  computer 
languages .  Written  in  FORTRAN  IV  language  SDS  is  an  interactive  system  that 
does  not  require  assembling  or  compiling  of  ita  programs .  The  system  accepts 
source  language  statements  from  either  the  system  console  or  disc  flies  and  allows 
the  program  to  be  run  immediately  upon  completion  of  this  input  process .  While 
SDS  does  not  solve  all  of  the  problems  encountered  in  computerizing  psychological 
experiments .  its  modular  design  should  ease  such  future  modifications  as  des’tng 
with  continuous  variables,  calling  external  programs,  and  controlling  multiple 
experiments . 
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I.  INTRODUCTION 


Investigators  In  the  Vision  Research  Division  of  the  Naval  Aerospace 
Medical  Research  Laboratory  desired  to  use  existing  equipment  to  control 
on-going  and  future  experiments.  This  equipment  Included  two  Hewlett- 
Packard  computer  systems  (HP-2100 ,  HP-21MX) .  each  containing  a  multi- 
programmer  (HP-6840)  and  an  assortment  of  input/output  equipment .  There 
was  no  high  level  language  oriented  towards  process  control ,  and  personnel 
had  to  learn  complex  computer  languages  in  order  to  use  the  equipment  to 
control  experiments.  This  language  barrier  was  time  consuming  and  often 
led  to  delays  or  minimum  use  of  the  computer  for  experiment  control .  The 
following  computer  system  requirements  were  established  by  the  Vision 
Research  Division  to  alleviate  this  problem: 

A)  Develop  a  high  level  language  that  can  be  used  to  program  existing 
computer  hardware  systems  to  control  psychophysical  experiments . 

This  language  should  be  written  ir  terms  that  investigators  are 
familiar  with  and  should  be  easily  learned  by  those  who  may  be 
unskilled  in  the  use  of  complex  computer  languages. 

B)  Implement  this  system  using  a  high  level  language  such  as  FORTRAN 
in  order  to  facilitate  changes  to  other  computers  in  the  future. 

C)  Design  the  system  to  control  any  experiment  capable  of  being 
controlled  by  the  multiprogrammers 1  digital  input/output  cards. 

D)  The  system  should  be  an  interactive  system  that  does  not  require 
assembling  or  compiling  of  the  user's  program  prior  to  running. 

E)  The  system  should  be  capable  of  communicating  with  basic  input/ 
output  devices  such  as  the  console,  line  printer,  paper  tape  reader, 
and  paper  tape  punch . 

F)  Design  the  system  using  a  modular  concept  to  facilitate  future 
additions  of  such  features  a3  analog  input/output  or  multiple  experi¬ 
ment  capabilities. 

The  Slate  Diagram  System  (SDS)  was  designed  and  developed  to  satisfy 
the  above  raqulremerts.  SDS  is  an  eve^t  driven,  table  oriented,  real-timt 
system  that  operates  under  Hewlett-Packard's  real-time  executive  RTE-n. 

SDS  is  accurate  to  within  one  tick  of  the  RTL  -n  clock  which  runs  at  a  frequency 
of  100  Hr.  The  purpose  of  this  report  is  to  define  the  capabilities  and  limitations 
of  this  system . 
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n.  OVERVIEW  OF  HARDWARE 


SDS  wss  designed  to  be  used  on  the  Hewlett-Packard  HP-2100  or  HP- 
21MX  computer  system  which  includes  the  following  peripheral  equipment  and 
logical  unit  assignments: 

A)  Console  -  logical  unit  1. 

B)  Disc  -  logical  unit  2  and  10 . 

C)  Mag  Tape  -  logical  unit  8 . 

D)  Multiprogrammer  -  logical  unit  9 . 

E)  Lins  Printer  -  logical  unit  8 . 

F)  Paper  Tape  Reader  -  logical  unit  5 . 

G)  Paper  Tape  Punch  -  logical  unit  4. 

The  console,  disc,  magnetic  tape,  and  multiprogrammer  are  r squired  for 
the  SDS .  The  paper  tape  reader ,  paper  tape  punch ,  and  line  printer  are 
optional  equipment;  however ,  the  omission  of  any  equipment  or  changing  of 
logical  unit  assignments  may  require  minor  modifications  in  the  software . 

The  multiprogrammer,  HF-6940E,  is  an  input/output  (I/O)  control  unit 
that  converts  a  single  computer  I/O  channel  into  15  I/O  channels  if  all  of  its 
capabilities  are  utilized.  In  the  existing  SDS  system,  only  two  channels,  an 
event  sense  card  and  a  relay  output  card,  are  utilized ,  The  event  sense  card 
monitors  12  data  input  lines  and  notifies  the  computer  when  a  change 
occurs  <a  the  level  of  these  lines .  The  relay  output  card  contains  12  output 
relays  that  can  be  energized  or  de-energized  by  the  computer .  In  addition 
to  the  multiprogrammer,  HF-6940B ,  it  is  possible  to  install  up  to  15  extender 
units,  FP-6941B,  which  would  have  the  capability  of  converting  a  single  computer 
I/O  channel  into  240  I/O  channels .  It  should  again  be  noted  that  any  change  in 
the  existing  multiprograramer  capabilities  would  require  modifying  the  soft¬ 
ware. 

The  multiprogrammer  is  capable  of  housing  the  following  types  of  I/O 
cards  in  either  the  main  unit  or  the  extender  units: 

A)  Event  sense . 

B)  Digital  input  for  counter  with  interrupt. 

C)  Digital  I/O . 
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0)  Digital  input  only . 

E)  Analog  output . 

F)  Timers. 

G)  Pulse  counters . 

The  number  of  each  of  these  cards  is  optional  and ,  as  can  be  seen  by  the  types 
of  cards  available,  the  need  of  co3tly  special  Interface  devices  to  control  an 
experiment  could  very  often  be  eliminated.  Refer  to  Hewlett-Packards  HP-6940B 
Operating  and  Service  Manual  for  detailed  descriptions  of  the  capabilities 
of  oach  of  these  cards . 


m.  OVERVIEW  OF  SOFTWARE 
A .  Hewlett-Packard  Real-Time  Executive  (RTE-n) 

Multiprogramming  using  the  RTE-n  system  requires  that  programs  be 
installed  in  the  system  during  system  generation  if  more  than  two  programs 
are  required  in  core  at  any  given  time.  Since  SDS  was  designed  in  a 
modular  manner ,  it  was  dasirable  to  develop  a  method  by  which  these  modules 
or  tasks  could  be  loaded  into  core  simultaneously,  using  RTE-n1  s  loader. 

This  capability  would  eliminate  the  requirement  of  a  new  system  generation 
each  time  SDS  was  modified .  To  accomplish  thiB ,  eight  dummy  programs 
were  installed  during  system  generation.  These  programs  were  named  T1XXX 
through  T8XXX,  indicating  the  task  numbers  and  complying  with  the  ISA 
FORTRAN  Extension  Package  requirement  that  the  last  three  characters  must 
be  X's .  This  requirement  only  exists  in  RTE-n  when  the  event  Sense  Inter¬ 
face  routine  is  being  used  to  schedule  tasks .  These  dummy  programs  can  be 
any  simple  programs,  as  shown  in  Appendix  A,  and  serve  only  to  establish 
ID  Segment  maps  in  the  system.  Word  eight  of  these  ID  Segment  maps  contain 
the  primary  entry  points  of  programs  T1XXX  through  T8XXX  and  is  the  only 
word  that  needs  to  be  altered  before  scheduling  the  tasks .  Subroutines  NTASK 
and  NTSK1  through  NTSK8  modify  word  eight  of  these  ID  Segment  maps  at  run 
time,  thus  allowing  up  to  ten  programs  to  be  loaded  into  core  by  RTE-n 's  loader. 
Refer  to  Appendix  A  for  a  detailed  description  of  this  process.  With  this  excep¬ 
tion,  the  RTE-n  system  is  intact  and  is  described  in  the  RTE-n  operating 
manual . 

P .  State  Diagram  System 

SDS  was  developed  to  provide  automatic  control  of  psychophysical  experi¬ 
ments,  using  discrete  inputs  and  outputs.  Similar  to  SKED  and  ACT-INTER- 
ACT  systems  available  for  DEC  and  NOVA  computers,  a  high  level  language 
familiar  to  investigators  is  used,  thus  eliminating  their  need  for  in-depth 
knowledge  of  complex  computer  languages.  The  fundamental  idea  behind  SDS 
is  that  experiment*  using  discrete  inputs  and  outputs  can  be  broken  down  into 
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basic  elements  that  modify  the  subject's  environment.  These  batic  elements 
usually  deal  with  the  presentation  of  stimuli ,  the  detection  of  responses .  and 
the  measurement  of  elapsed  time,  which  makes  them  easily  automated  using  the 
computer .  In  addition  to  automating  experiments  SDS  logs  each  event  on 
magnetic  tape,  thus  allowing  off-line  analysis  of  the  experiment's  data  at  a  later 
date.  SDS  was  designed  in  a  modular  form,  as  shown  in  Figure  1 ,  to  facilitate 
future  modifications  such  as  multiple  experiment  control  or  the  ability  to  control 
experiments  using  continuous  variables .  A  brief  description  of  each  of  the 
programs  used  in  SDS  follows.  Listings  of  the  programs  and  subroutines  of 
SDS  are  included  in  Appendix  fi . 

Program  OPCOM  is  the  operator  communications  program .  OPCOM  accepts 
the  SDS  source  language  statements  from  either  the  disc  or  the  system  console . 
OPCOM  decodes  each  line  of  source  language  statements  and  calls  upon  program 
DOOPS  to  load  each  decoded  instruction  into  the  proper  tables  of  the  experiment 
controller  program  EXPR .  When  the  end  of  the  source  language  statements  is 
reached,  the  complete  program  has  been  decoded  and  loaded.  OPCOM  then 
schedules  program  SDS  to  start  the  experiment . 

Program  DOCPS  is  used  to  communicate  the  decoded  SDS  instructions 
between  programs  OPCOM  and  EXPR .  This  program  crosses  the  foreground 
boundary  into  background  and  sets  up  the  proper  tables  with  each  decoded 
instruction  supplied  by  OPCOM . 

Progr  am  RDWRT  performs  read  and  write  functions  to  disc  files  OPIN 
and  OPOUT,  respectively.  If  instructed  to  read  source  language  statements 
from  the  disc ,  RDWRT  opens  disc  file  OPIN ,  reads  single  lines  of  source  language 
statements ,  and  passes  each  line  to  program  OPCOM  for  decoding .  This  process 
is  performed  undl  the  end  of  disc  file  OPIN  is  reached .  RDWRT  also  writes 
each  line  of  source  language  statements  in  disc  file  OPOUT .  This  write 
function  occurs  when  the  system  console  or  when  disc  file  OPIN  is  used  for 
inputting  source  language  statements .  The  results  of  this  write  function  is 
that  file  OPOUT  always  contains  a  copy  of  the  most  recent  SDS  program .  File 
OPOUT  can  be  saved  for  future  use  or  can  be  transferred  to  disc  file  OPIN  for 
running  the  same  SDS  program  using  the  disc  as  an  input  device.  In  addition 
to  creating  disc  file  OPIN  in  this  manner  RTE-n's  editor  can  be  used  to  create 
or  modify  source  language  programs  named  OPIN. 

Program  SDS  performs  the  functions  of  in  ialization ,  starting  experi¬ 
ments  .  and  ending  experiments .  Prior  to  OPCOM  accepting  source  language 
statements  from  either  disc  or  the  system  console  program  SDS  is  called  upon 
to  initialize  all  variables  and  tables  within  the  system .  When  notified  by  OPCOM 
to  start  an  experiment  program ,  SDS  Issues  the  start  of  experiment  event  code . 
When  notified  by  program  EXPR  that  the  experiment  has  ended  program ,  SDS 
terminates  all  active  programs,  including  itself,  and  returns  control  to  RTE-n's 
file  manager  program  FMGR. 
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When  a  switch  closure  occurs  on  any  ona  of  the  12  event  sense  data  input 
lines .  the  event  sense  interface  routine ,  EVSNS ,  schedules  program  RESP . 
Program  RESP  then  determines  which  input  line  caused  the  interrupt,  issues 
a  response  event  code,  and  passes  the  switch  number  to  program  EXPR . 

Program  TSCHD  maintains  a  time  event  schedule.  When  a  requested 
time  has  elapsed,  program  TSCHD  issues  a  time  event  code  and  passes  the 
necessary  information  needed  to  service  the  time  event  to  program  EXPR . 

Program  IOTSK  performs  I/O  operations  requested  by  the  experiment 
controller  task  EXPR .  The  I/O  operations  that  can  be  performed  by  SDS  are 
input  from  the  paper  tape  reader  and  output  to  the  system  console ,  line  printer , 
and  paper  tape  punch . 

Each  event  that  occurs  during  the  running  of  an  SDS  program  is  logged 
on  the  magnetic  tape  with  sufficient  information  to  identify  the  event .  This 
function  is  performed  by  program  LOGG  on  a  low  priority  basis. 

Program  EXPR  is  the  overall  experiment  controller  program .  EXPR  is 
driven  by  the  start  of  experiment,  response,  time,  and  relational  events.  This 
program  takes  action  on  these  events  as  directed  by  the  SDS  Program .  Upon 
completion  of  the  SDS  program ,  EXPR  notifies  program  SDS  to  terminate  all 
active  programs. 
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IV .  NOTATION  SYSTEM 


Prior  to  describing  the  instruction  set  of  SDS  it  is  Important  that  the 
notation  system  be  introduced .  This  system  of  notation  should  be  studied 
carefully  because  proper  diagramming  of  the  experiment  and  using  proper 
notation  result  in  the  programming  function  being  accomplished  automatically . 

The  state  is  the  basic  unit  of  the  notational  system  and  is  used  to  repre¬ 
sent  one  element  of  a  discrete  input/output  experiment .  The  state  diagram 
is  drawn  in  Figure  2 .  The  state  number  Is  drawn  into  the  box  in  the  upper 
right  corner  of  the  state  diagram  as  represented  by  the  X .  The  Ys  represent 
one  or  more  of  the  SDS  input/output  instructions ,  substate  instruction .  then 
instruction,  initialize  variable  instruction,  dimension  statement,  or  the  stim¬ 
ulus  instruction.  The  Z  represents  any  one  of  the  four  basic  instructions 
of  the  SDS  that  will  cause  a  transition  from  the  state ,  and  the  represents 
the  direction  of  program  flow  or  transition.  The  four  instructions  that  will 
cause  a  transition  in  the  SDS  are  the  AFTER,  FOLLOWING,  IF,  and  modi¬ 
fied  IF  instructions .  A  transition  is  the  exiting  from  one  state  and  the 
entry  into  the  designated  next  state  and  is  considered  to  be  an  instantaneous 
event . 


Figure  2 .  State  Notation  Svstem 
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One  state  can  be  a  substate  of  another  state .  The  substate  notation  is  to 
draw  the  state  diagram  nested  within  another  state  as  shown  in  Figure  3 
In  this  example  s&te  2  is  a  sabstate  cf  state  1  as  denoted  by  the  use  of  the  same 
left  Dorder  line  and  by  the  fact  that  state  2  is  drawn  within  the  boundary  of 
state  1 .  It  should  also  be  no**d  that  the  SUBSTATE  instruction  SS  2  has  been 
entered  in  the  upper  left  corner  of  state  1 .  State  3  is  a  subatate  of  state  2 
for  the  same  reasons  and  is  included  in  this  drawing  to  demonstrate  the  capa¬ 
bilities  cf  multiple  nestings . 


Vhe  direction  of  program  flow  is  represented  by  the  (right  arrow) . 
When  states  are  connected  by  an  -*•  as  shown  in  Figure  4 ,  the  THEN  statement 
should  be  entered  in  the  upper  left  corner  of  the  state . 
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Both  the  SUBSTATE  instruction  and  'he  THEN  instruction  are  implied  by  the 
manner  in  which  they  are  drawn.  For  example,  if  a  state  is  drawn  within  another 
and  uses  its  left  border ,  the  SUBSTATE  instruction  is  implied ,  and  if  two  states 
are  connected  by  an  arrow ,  the  THEN  instruction  is  implied .  It  is  not  neces¬ 
sary  to  write  these  instructions  in  the  upper  left  corner  of  each  state;  however . 
caution  should  be  taken  when  translating  the  state  diagram  into  the  actual  SDS 
program . 


Figure  4 .  Ontav&ng  State  Notation 

This  concludes  the  basic  SDS  notation  system.  It  is  recommended  that 
this  section  be  reviewed  after  reading  Section  V  describing  the  SDS  instruc¬ 
tion  set.  The  success  in  using  the  SDS  lies  in  the  care  taken  in  diagramming 
the  experimer.  * .  Since  each  instruction  used  within  a  state  is  written  into  the 
diagram,  the  programming  function  is  merely  to  transform  the  diagram  into 
proper  SDS  source  language  format. 

V.  THE  SDS  INSTRUCTION  SET 

There  are  five  categories  of  intructlons  in  the  SDS  Instruction  set. 

These  are  iob  control,  transitional,  modifying  or  identifying,  logical,  and 
input/ovtput  instructions.  Job  control  instructions  determine  the  beginning 
and  the  end  of  the  program  and  the  end  of  each  line  of  source  language  state¬ 
ments.  Transitional  instructions  define  the  event  that  will  cause  a  transition 
from  one  stata  to  the  next  state .  Modifying  or  identifying  instructions  modify 
or  identify  variables ,  states ,  substates ,  stimuli ,  or  direction  of  program  flow . 
Logical  instructions  supply  the  capability  of  tying  two  or  more  transitional 
instruction*  together  in  a  single  state  though  the  use  of  a  logical  OR  or  a 
logical  AND.  Input/output  instructions  are  used  to  control  input/output  to  or 
from  the  system  console,  paper  tapo  reader,  paper  tape  punch,  and  the  line 
printer . 

A .  Job  Control  -  there  are  three  job  control  statements  in  the  SDS  language . 
These  statements  are  $,  NEW,  and  END.  Each  of  these  instructions  is  used  in 
every  source  language  program. 
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1 .  $  -  The  $  is  used  to  terminate  each  sourc  language  lina  in  an 
SDS  program .  The  operator  communication  program  usss  the  $  to  delineate 
the  end  of  line .  If  the  $  is  omitted ,  the  operator  communications  program  will 
combine  two  or  more  lines  of  code,  rasultirg  in  program  errors. 

2.  NEW  -  The  NEW  instruction  is  required  by  the  SDS  to  initiate  a 
dialog  concerning  the  source  of  input  of  source  language  code .  The  instruction 
must  be  the  first  statement  in  every  source  language  program  and  is  written  as: 

NEW* 

3 .  END  -  The  END  instruction  is  required  by  the  SDS  to  ir ttlate  a 
dialog  concerning  running  of  the  program .  The  instruction  must  be  the  last 
statement  in  every  source  language  program  and  is  written  as: 

END$ 

0  ■  Tram  donal  -  There  are  four  transitional  instructions  in  the  SDS  language 
These  instructions  are  AFTER,  FOLLWING,  IF,  and  a  modified  IF  or  rational 
instruction .  These  instructions  determine  when  the  SDS  program  will  exit 
one  state  and  make  a  transition  to  the  next  state  in  the  program . 

1  •  AFTER  -  The  AFTER  instruction  leaves  the  state  it  is  in  and  makes 
a  transition  to  the  next  state  in  the  program  after  passage  of  a  designated 
amount  of  time .  The  AFTER  instruction  is  written  as: 

AF  AXAY 

Bhere  X  is  a  constant,  a  variable ,  or  an  element  of  an  array;  the  value  of  X 
must  be  greater  than  0  and  must  not  exceed  32767;  and  Y  is  one  of  the  designators 
T,  S,  M,  or  H  that  designate  ticks  (10s  of  ms) ,  seconds  minutes,  or  hours, 
respectively.  If  X  is  ariable  or  an  array  element,  it  is  considered  to  be  X 
number  of  seconds  and  must  have  been  previously  defined  in  the  SDS  program . 
NOTE:  When  writing  source  language  programs  using  uhe  SDS,  it  is  necessary 
to  comply  with  certain  syntax  restrictions  to  inform  the  operator  communications 
program  of  the  beginning  and  end  of  source  statements.  One  such  restriction  is 
the  use  of  the  delineator  blank  which  will  be  designated  by  the  symbol  A  in 
all  of  the  following  examples.  When  creating  source  language  programs,  whether 
by  using  the  editor  or  by  input  from  the  console  keyboard,  this  delineator  must 
be  used  as  shown  in  each  instruction  description .  It  should  also  be  noted  that 
every  Instruction  within  a  source  language  program  must  be  separated  by  a 
blank.  The  SDS  operator  communication  package  is  searching  the  source 
language  line  to  find  characters  that  indicate  thax  an  instruction  has  been 
reached,  such  as  the  two  characters  AF  in  the  AFTER  instruction.  It  then  skips 
all  characters  until  a  blank  is  found  which  allows  the  instruction  AFTER  to  be 
written  in  its  entirety  if  so  desired .  With  the  exception  of  input/ output 
instructions  only  the  first  two  characters  of  each  instruction  need  be  typed. 

When  using  input/output  instructions,  the  three  designated  characters  must  be 
typed. 
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Examples  of  AFTER  instruction: 


AF  5  T  -  exit  this  state  after  5  ticks  of  the  clock  (50  ms) 

AF  8  S  -  exit  this  state  after  8  seconds 

AF  3  M  -  exit  this  state  after  3  minutes 

AF  2  H  -  exit  this  state  after  2  hours 

AF  A  S  -  exit  this  state  after  A  seconds 

AFTER  IT  -  exit  this  state  after  1  tick  of  the  clock 

AFXY2X.MN  IT-  exit  this  state  after  1  tick  of  the  clock 

NOTE:  SDS  ignores  misspelled  words  If  the  first  two  characters  are  correct 
and  there  are  no  imbedded  blanks. 

The  AFTER  instruction  is  diagrammed  in  Figure  5  in  which  state  #1  will  exit 
after  3  minutes . 


Figure  5.  Diagramming  the  AFTER  Instruction 


2 .  FOLLOWING  -  the  FOLLOWING  instruction  leaves  the  state  it  is  in 
and  makes  a  transition  to  the  next  state  in  the  program  upon  occurrence  of 
a  designated  count  X  of  a  designated  state  Y  that  must  be  a  state  other  than 
itself.  The  FOLLOWING  instruction  is  written  as: 

FOL  X  S  Y 
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Where  X  is  a  constant,  a  variable,  or  an  element  of  an  array  designating  the 
desired  count;  the  vlaue  of  X  must  be  greater  than  9  and  must  not  exceed  32767, 
S  is  the  character  S;  and  Y  is  a  constant,  a  variable,  or  an  element  of  an  array 
designating  the  state  number  of  the  state  that  is  going  to  be  counted .  If  X  or 
Y  is  a  variable  or  an  array  element,  it  must  have  been  previously  defined  in 
the  SD5?  program .  The  state  numbor  designated  by  Y  must  be  a  valid  state 
number  other  than  its  own . 

Examples  of  FOLLOWING  Instruction: 

FOL  1  S  5  -  exit  this  state  following  the  occurrence  of  1  state  #5 

FOL  A  S  3  -  exit  this  state  following  the  occurrence  of  A  state  #3 

FOL  3  S  A  -  exit  this  state  following  the  occurrence  of  3  state  #A 

FOL  A  S  B  -  exit  this  state  following  the  occurrence  of  A  state  #B 

FOL  1  S  5  -  exit  this  state  following  the  occurrence  of  1  state  #5 

FOLLOWING  1  S  5  -  exit  this  s' ate  following  the  occurrence  of  1  state  #5 

The  FOLLOWING  instruction  is  diagrammed  in  Figure  6  in  which  state  #1  will 
exit  following  the  occurrence  of  five  state  #3 .  Note  that  states  #2  and  #3 
oscillate  between  each  other  every  second . 


SSa2 

Y 

Y 


THa3  l_2j  ™AZ 


AFAS 


afas 


FOLa5a3a3 


Figure  6.  Diagramming  the  FOLLOWING  Instruction 
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3.  IF  -  The  basic  IF  instruction  leaves  the  state  it  is  in  ard  makes  a 
transition  to  the  next  state  in  the  program  upon  occurrence  of  a  designated 
number  X  of  correct  responses  whose  number  Y  is  also  designated  in  the 
instruction .  The  basic  IF  instruction  is  written  as: 

IF  X  R  Y 

Where  X  is  a  constant,  a  variable,  or  an  element  of  an  array  designating  the 
desired  count;  the  value  of  X  must  be  greater  than  9  and  must  not  exceed  32767; 

R  is  the  character  R;  and  Y  is  a  constant,  a  variable,  or  an  element  of  an  array 
designating  the  response  number  desired .  If  7  is  a  variable  or  an  array  element , 
it  must  have  been  previously  defined  in  the  SD3  program.  If  Y  is  a  variable  or 
an  array  element,  it  must  have  heen  a  valid  response  number  previously  defined 
in  the  SDS  program . 

NOTE:  Response  numbers  range  from  respone  #1  through  response  #12  which 
have  a  direct  relationship  to  the  bit  position  of  the  response  word .  For  example , 
response  #4  implies  the  fourth  bit  of  the  response  word . 


Examples  of  basic  IF  Instruction: 

-  exit  this  state  if  3  response  #5  occurs 

-  exit  this  state  if  A  response  #B  occurs 

-  exit  this  state  if  A  (1)  response  #B(4)  occurs 

IF  A(D)  R  B(E)  -  exit  this  state  if  A  (D)  response  #B  (E)  occurs 

The  basic  IF  instruction  is  diagrammed  in  Figure  7  in  which  state  #1  will  exit  if 
response  #4  occurs  5  times . 


IF 

3R  5 

IF 

A  R 

B 

IF 

A  ( 1 ) 

R 

B  (4) 

EF 

A(D) 

R 

B(E) 

Figure  7.  Diagramming  the  Basic  IF  Instruction 
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Another  form  of  the  IF  Instruction  is  the  binary  IF  instruction  which  Is 
designed  to  detect  multiple  responses .  The  binary  IF  Instruction  leaves  the 
state  it  is  In  and  makes  a  transition  to  the  next  state  in  the  program  upon 
occurrence  of  a  designated  number  of  correct  response  patterns  whose  bits  are 
also  designated  in  the  instruction .  In  the  basic  IF  instruction ,  as  previously 
stated ,  the  response  number  implies  the  bit  position  of  the  response  word  as 
shown  in  Figure  7;  however,  if  the  response  number  3  was  designated  in  the 
binary  IF  instruction ,  it  would  be  made  of  bits  0  and  1  whose  values  are  2  and 
21 ,  respectively .  The  decimal  value  must  be  used  to  designate  the  proper  value 
for  the  desired  multiple  response .  In  the  response  word  there  are  12  bits  whose 
values  range  from  2o  through  21 1  as  shown  in  Table  I.  The  binary  IF  instruction 
is  written  as: 


IF  X  RB  Y 

Where  X  is  a  constant,  a  variable,  or  an  element  of  an  array  designating  the 
desired  count;  the  value  of  X  must  be  greater  than  0  and  must  not  exceed  32767; 
RB  are  the  characters  RB;  and  Y  is  a  constant,  a  variable,  or  an  element  of  an 
array  designating  the  response  pattern  desired;  the  value  of  Y  must  be  greater 
than  0  and  must  not  exceed  4095 .  If  X  or  Y  is  a  variable  or  an  array  element, 
it  must  have  been  previously  defined  in  the  SDS  program . 

Table  I 

BIT  Values  Used  in  Multiple  Response  Word 


BIT  # 

VALUE 

RESPONSE  # 

0 

1 

1 

1 

2 

2 

2 

4 

3 

3 

8 

4 

4 

18 

5 

5 

32 

6 

6 

64 

7 

7 

128 

8 

8 

256 

9 

9 

512 

10 

10 

1024 

11 

11 

2048 

12 

Examples  of  binary  IF  instruction: 


IF  1  RF  3 
IF  A  RB  3 
IF  A  (1)  RB  3 


-  exit  this  state 

-  exit  this  state 

-  exit  this  state 


if  1  response  pattern  3  occurs 
if  A  response  pattern  3  occurs 
if  A  Cl)  response  pattern  3  occurs 
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IF  A(B)  RB  3 


-  exit  this  state  if  A(B)  response  pattern  3  occurs 


( 

l 


I 


IF  A  RB  B  -  exit  this  state  if  A  response  pattern  B  occurs 

The  binary  IF  instruction  is  diagrammed  in  Figure  8  in  which  state  #1  will 
exit  if  response  pattern  2049 ,  bit  9  and  bit  11 ,  occurs  five  times . 

4 .  IF  (modified)  -  The  modified  IF  instruction  or  relational  instruc¬ 
tion  leaves  the  state  it.  is  in  and  makes  a  transition  to  the  next  state  in  the  pro¬ 
gram  upon  the  satisfaction  of  the  relationship  of  its  two  variables.  The  optional 
relational  operators  are  EQ ,  NE ,  LT ,  GT ,  LE ,  and  GE ,  and  the  respective  mathe 
matlc  functions  are  equal  to ,  not  equal  to ,  less  than ,  greater  than ,  less  than  or 
equal  to ,  and  greater  than  or  equal  to .  The  relational  instruction  is  written  as: 

IF  X  Z  Y 


Figure  8 .  Diagramming  the  Binary  IF  Instruction 

Where  X  is  a  variable  or  an  array  element  that  has  been  previously  defined  in 
the  SD3  program:  the  value  of  X  must  be  in  the  range  of  -32768  to  32767;  Z  is 
one  of  relational  operators  EO,  NE,  LT,  GT,  LE,  or  GE:  and  Y  is  a  variable 
or  an  array  element  that  has  been  previously  defined  in  the  SDS  program; 
the  value  of  Y  must  be  in  the  range  of  -32768  to  32767 , 

Examples  of  relational  instruction: 

IF  A  EQ  C  -  exit  this  state  if  A  is  equal  to  C 

IF  D  GE  Y  -  exit  this  state  if  D  is  greater  than  or.  equal  to  Y 

IF  A  LT  B  -  exit  this  state  if  A  is  less  than  B 


( 


15 


The  relational  instruction  is  diagrammed  in  Figure  9  in  which  state  #1  will 
exit  if  variable  A  is  equal  to  variable  B . 


Figure  9.  Diagramming  the  Relational  Instruction 

C .  Modifying  or  Identifying  -  There  are  six  instructions  that  can  modify  or 
identify  direction,  variables,  array  size  and  content,  stimuli,  and  states  rela¬ 
tionship  to  other  states;  i.e. ,  state  or  substate.  These  instructions  are  THEN, 
VARIABLE,  DIMENSION,  STIMULUS.  STATE,  and  SUBSTATE,  respectively. 

1 .  THEN  -  The  THEN  Instruction  determines  the  direction  the 
program  will  follow  in  the  SDS  program  and  is  written  as: 

TH  X 

Where  X  can  be  a  constant,  a  variable,  or  an  element  of  an  array  designating 
the  next  state  to  be  entered  when  an  exit  Is  made  from  this  state .  If  X  is  a 
variable  or  an  array  element,  it  must  have  been  previously  defined  in  the  SDS 
program.  The  state  number  designated  by  X  must  be  a  valid  state  number. 

Examples  of  THEN  instruction: 

TH  2  -  when  this  state  exits ,  go  to  state  2 

TH  A  -  when  this  state  exists ,  go  to  state  A 

TH  A  (1)  -  when  this  state  exits ,  go  to  state  A  (1) 
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TH  A(B)  -  when  this  state  exits,  go  to  state  A(B) 

THEN  2  -  when  this  state  exists ,  go  to  state  2 

The  THEN  instruction  is  diagrammed  in  Figures  10(a)  and  10(b) .  In 
Figure  10(a)  the  THEN  instruction  is  written  in  the  upper  left  comer  of 
the  state  diagram,  and  in  Figure  10(b)  the  THEN  statement  is  Implied  by 
the  arrow.  Both  Figures  10(a)  and  10(b)  perform  the  same  function, 
which  is  to  go  to  state  #2  when  state  #1  exits  after  one  second. 


Figure  10(a) .  Diagramming  the  THEN  Instruction 
Using  Written  Notation 


Figure  10(b) .  Diagramming  the  THEN  Instruction 
Using  Implied  Notation 
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2 .  VARIABLE  -  The  VARIABLE  instruction  is  used  to  define  one  or 
more  variables  to  be  used  in  the  SDS  program .  The  instruction  must  be  the 
last  instruction  in  a  line  of  source  statements  used  to  describe  a  state.  There 
are  25  variables  available  to  the  user,  and  they  must  be  designated  as  A  through 
Y.  Variable  Z  is  presently  being  used  by  the  SDS.  The  VARIABLE  instruction 
is  written  as: 

VAR  X  =  Y  or  VAR  X  =  Y,  X  =  Y ,  etc . 

Where  X  is  one  of  'he  letters  A  through  Y  used  to  designate  the  desired  vari¬ 
ables  and  Y  is  a  constant,  a  variable,  or  an  element  of  an  array  defining  the.  value 
of  the  designated  variable .  If  Y  is  a  variable  or  an  array  element ,  it  must  have 
been  previously  defined  in  the  SDS  program .  The  value  of  Y  must  be  in  the 
range  of  -32768  to  32767. 
range  of  -32788  to  32767 
Examples  of  VARIABLE  instruction: 

VAR  A  =  1  -  variable  A  is  set  equal  to  1 

VAR  A  =  B  -  variable  A  is  set  equal  to  B 

VAR  A  =  B  (1)  -  variable  A  is  set  equal  to  B(l) 

VAR  A  =  B(C)  -  variable  A  is  set  equal  to  B(C)  . 

VAR  A  Cl)  *  1  -  array  element  A  (1)  is  set  equal  to  1 

VAR  A  (B)  =  1  -  array  element  A(B)  is  set  equal  to  1 

The  VARIABLE  instruction  is  diagrammed  in  Figure  11  in  which  variables 
A  and  B  are  both  set  equal  to  five . 


Figure  11.  Diagramming  the  VARIABLE  Instruction 
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3 .  DIMENSION  -  The  DIMENSION  instruction  is  used  to  define  up  to 
four  arrays.  The  combined  size  of  the  four  arrays  must  not  exceed  200  words. 
The  array  defined  must  be  named  by  any  one  of  28  available  names  which  ars 
the  characters  A  through  Z.  All  arrays  must  be  defined  using  a  DIMENSION 
instruction  prior  to  any  attempt  to  address  an  element  of  the  array .  The 
DIMENSION  instruction  is  written  as: 

DIM  X.Y 

Where  X  is  the  name  of  the  array  and  must  be  any  one  of  the  26  characters 
A  through  Z;  and  Y  is  the  number  of  words  in  the  array .  It  should  be  again 
noted  that  if  more  than  one  array  is  defined,  the  combined  total  of  the  size  Y 
of  all  of  the  arrays  must  not  exceed  200  words. 

Examples  of  DIMENSION  instruction: 

DIM  A, 50  -  array  named  A  is  defined  as  being  50  words  long 

DIM  3,  150  -  array  named  B  is  defined  as  being  150  words  long 

NOTE:  The  combined  size  of  arrays  A  and  B  does  not  exceed  200  words  in 
length. 

The  DIMENSION  instruction  is  diagrammed  as  shown  in  Figure  12  in  which 
two  arrays  are  named  A  and  B  and  are  defined  as  being  50  and  150  words  in 
length,  respectively. 


19 


1 


4.  STIMULUS  -  The  STIMULUS  instruction  is  used  to  issue  a  desired 
stimulus  during  a  state.  The  stimulus  is  turned  on  when  a  state  is  entered 
and  is  turned  off  when  a  state  ends .  The  value  of  the  stimulus  data  word 
determines  which  and  how  many  stimuli  will  be  issued.  The  decimal  value 
must  be  used  to  designate  the  proper  value  for  the  desired  stimuli .  There  are 
12  bits  in  the  stimulus  word  and  their  values  are  as  shown  in  Table  U. 

Table  H 

BIT  Values  Used  in  Stimulus  Word 


! 


i 

I 


BIT  # 

VALUE 

STIMULUS 

0 

1 

1 

1 

2 

2 

2 

4 

3 

3 

8 

4 

4 

18 

5 

5 

32 

6 

6 

84 

7 

7 

128 

8 

8 

256 

9 

9 

512 

10 

10 

1024 

11 

11 

2048 
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The  STIMULUS  instruction  is  written  as: 

ST  X 

Where  X  :.s  a  constant,  a  variable,  or  an  element  of  an  array  designating  the 
desired  stimuli.  If  X  is  a  variable  or  an  array  element,  it  must  have  been  pre¬ 
viously  defined  in  the  SDS  program .  The  value  of  X  must  be  greater  than  0  and 
must  not  exceed  4095  . 

Examples  of  STIMULUS  instruction: 

ST  1  -  issue  stimulus  bit  1  during  this  state 

ST  3  -  issue  stimuli  bits  1  and  2  during  this  state 
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NOTE:  If  the  characters  ST  are  confusing  because  cf  the  STATE  instruction,  the 
characters  SB  can  be  used  to  replace  ST  in  the  STIMULUS  instruction. 

The  STIMULUS  instruction  is  diagrammed  as  shown  in  Figure  13  in  which 
stimulus  bit  #1  is  turned  on  during  the  entire  time  state  #1  is  active. 


AF,:,S 


Figure  13.  Diagramming  the  STIMULUS  Instruction 

5 .  STATE  -  The  STATE  instruction  is  used  to  assign  a  state  number 
to  each  state.  It  must  be  the  first  instruction  in  every  source  line,  and  X  must 
be  a  constant  greater  than  ?  and  less  than  31 .  The  STATE  instruction  is  written 
as: 


ST  X 

STATE  X 

Where  X  is  a  state  number  0  F  X  F  31 . 

6 .  SUBSTATE  -  The  SUBSTATE  instruction  is  used  to  declare 
another  state  to  be  a  substate  of  the  state  in  which  the  SUBSTATE  instruction 
appears.  The  SUBSTATE  Instruction  is  written  as: 

SU  X 

Where  X  is  a  constant  and  must  be  a  valid  state  number  of  an  existing  state  in 
the  program  in  which  the  SUBSTATE  instruction  appears.  The  character  SS 
can  be  used  to  replace  the  characters  St'.*  '/  it  is  desired .  The  value  of  X  must 
be  greater  than  0  and  less  than  31 . 

Examples  of  SUBSTATE  instruction: 

SU  4  -  state  4  is  a  substate  of  this  state 
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SU  3  -  state  3  is  a  substate  of  this  state 

SS  3  -  state  3  is  a  substate  of  this  state 

The  SUBSTATE  instruction  is  diagrammed  in  Figure  14(a)  in  which  stats 
#2  is  declared  to  be  a  mbotate  of  state  #1,  Figure  14(b)  makes  the  same 
declaration  except  it  implies  that  slate  #2  is  a  substate  of  state  #1  by  the  fact 

that  they  both  use  the  some  left  border  and  state  #2  is  nested  within  state  #1 . 


Figure  11  («) .  Diagramming  the  SUBSTATE  Instruction 
Usins,  Written  Notation 


Figure  14(b) .  Diagramming  the  SUEoTATE  Instruction 
Using  Implied  Notation 
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D .  LOGICAL  -  There  are  two  LOGICAL  instructions  that  allow  the  user  tc 
logically  connect  two  or  more  of  the  transitional  instructions  together  within 
a  single  state.  These  instructions  are  OR  and  AND  and  are  written  as: 

X  OR  Y  or  X  OR  Y  OR  Z,  etc. 

X  AND  Y  or  X  AND  Y  AND  Z,  etc. 

Where  X,  Y,  and  Z  are  any  of  the  transitional  instructions  as  previously 
described . 

NOTE:  The  use  of  LOGICAL  instructions  requires  the  use  of  a  state  table 
entry  for  each  element  X,  Y,  or  Z  and  will  therefore  reduce  the  maximum 
number  of  states  from  30  to  30  minus  the  number  of  logical  instruction  elements. 

Examples  of  LOGICAL  instruction: 

IF  1  R3  OR  AF  5  S  -  exit  this  state  if  1  response  3  occurs  or  after 

5  seconds 

IF  1  R  2  AND  FOL  1  S  5  -  exit  this  state  when  1  response  2  occurs  and 

1  state  5  has  been  performed 

The  LOGICAL  instruction  is  diagrammed  in  Figure  15  in  which  state  #1 
would  exit  if  1  response  3  occurred  or  after  5  seconds  elapsed . 
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E .  INPUT/OUTPUT  -  There  are  three  output  instructions  that  allow  output 
of  variables  or  arrays  to  the  line  printer ,  paper  tape  punch ,  and  the  console 
CRT .  There  is  one  input  that  allows  input  of  variables  or  arrays  from  the 
paper  tape  reader.  These  instructions  are  PTR,  PUN,  CRT,  and  RDR  and 
are  written  as: 


X  A 

X  A:B;C  etc. 

X  D* 

Where  X  is  one  of  the  input/output  instructions  PTR,  PUN,  CRT,  or  RDR;  A, 

B ,  or  C  is  any  variable;  and  D*  is  the  name  of  any  array  that  has  been  previously 
defi.i*,J  using  a  DIMENSION  instruction. 


Examples  of  INPUT/OUTPUT  instruction: 

PTR  A*  -  print  array  A  on  line  printer 

PUN  A  -  punch  variable  A  on  paper  tape  punch 

CRT  A; B;  C  -  print  variables  A,  B ,  and  C  on  console  CRT 

RDR  A*  -  read  array  A  from  paper  tape  reader 

The  INPUT/OUTPUT  instruction  is  diagrammed  in  Figure  16  in  which  variables 
A ,  B ,  and  C  are  printed  on  the  line  printer  during  state  #1 . 


Figure  16.  Diagramming  the  INPUT/OUTPUT  Instruction 
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This  concludes  the  description  of  the  SDS  instruction  set .  It  is  recom¬ 
mended  that  Sections  IV  and  V  be  reviewed  prior  to  proceeding  to  Section  VI 
which  describes  the  running  and  uoe  of  the  SDS .  For  a  list  of  all  available 
instructions  in  the  SDS  refer  to  Appendix  C  which  describes  each  set  of 
instructions  in  detail . 


VI.  USING  THE  SDS 


A .  Introduction  to  RTE-n 

The  SDS  runs  under  control  of  Hewlett-Packard's  RTE-n  real-time  oper¬ 
ating  system  and  can  be  started  from  either  RTE-n  or  from  RTE-n's  file  manager 
program  FMGR .  The  procedure  used  to  initialize  RTE-n  on  the  HP-2100  Is 
described  in  detail  in  Appendix  D .  When  RTE-n  is  initialized ,  it  automatically 
schedules  program  FMGR  to  be  run .  PROGRAM  FMGR  prints  the  following  wel¬ 
come  message  on  the  CRT . 

SET  TIME 
:  SV,4 
TE,***** 

TE ,  ••••'"WELCOME  TO  THE  SDS  PLEASE  TYPE  RU,  OPCOM  WHEN  YOU 
TE,*****ARE  READY  TO  BEGIN  USING  THE  SDS 
TE ,  ***** 


If  the  correct  time,  day,  and  year  is  to  be  maintained  by  RTE-n  the 
system  must  be  given  this  information  prior  to  running  the  operator  com¬ 
munications  program.  To  set  the  real  time  clock  enter  the  following  command: 

SYTM,  YEAR,  DA  if,  HOUR,  MINUTE,  SECOND 


where: 

year  is  a  four  digit  year . 

day  is  a  three  digit  day  of  the  year  i  .e . ,  1  to  365 . 
hour,  minuto,  second  is  the  current  time  of  a  24-hour  clock. 

The  last  character  in  the  above  message  is  a  colon  (: )  which  is  the 
prompt  character  for  the  FMGR  program  and  indicates  that  FMGR  is  ready  to 
accept  input  from  the  keyboard .  The  RTE-n  system  expects  the  FMGR  program 
to  be  used  within  approximately  five  minutes .  If  no  use  is  made  of  the  FMGR 
program  within  this  time,  RTE-n  terminates  the  program.  As  previously 
stated,  however,  the  SDS  will  run  under  RTE-n  or  FMGR,  and  the  termina¬ 
tion  of  program  FMGR  merely  changes  the  method  of  starting  the  SDS .  If 
FMGR  has  not  terminated ,  the  user  must  type  RU, OPCOM  to  start  the  SDS 
otherwise  he  must  type  *RU,  OPCOM. 
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B .  Programming  the  SDS 

The  SOS  is  programmed  through  the  operator  communications  program 
OPCOM.  When  the  FMGR  command  RU  ,OPCOM  is  entered  on  the  keyboard,  the 
character  @  is  printed  on  the*  CRT .  The  @  is  the  prompt  character  for  the  SDS . 
The  required  job  control  instruction  NEW$  must  then  be  entered  on  the  key¬ 
board,  which  tells  OPCOM  to  prepare  for  entry  of  a  new  program.  OPCOM 
then  prints  the  message,  "INPUT  FROM  DISC??" ,  which  must  be  given  a  yes 
or  no  answer .  If  the  reply  to  this  question  is  yes ,  OPCOM  uses  the  program 
contained  in  disc  file  OPIN  as  input,  otherwise  it  expects  the  operator  to  input 
the  program  from  the  keyboard.  Procedures  for  creating  programs  for  disc 
input  from  file  OPIN  are  described  in  detail  in  Appendix  E .  For  the  purpose  of 
discussing  programming  the  SDS ,  it  will  be  assumed  that  the  reply  to  the 
above  question  was  no  and  that  the  program  will  be  entered  through  the  key¬ 
board  .  Following  each  line  of  input  from  the  keyboard  that  is  properly  ter¬ 
minated  by  the  job  control  instruction  $, OPCOM  will  take  action  as  necessary 
and  then  print  its  prompt  character  @  indicating  that  the  system  is  ready  for 
the  next  line  of  input . 

Since  the  SDS  was  written  to  be  used  by  Investigators  familiar  with 
schedules  of  reinforcement,  the  following  pages  will  use  examples  of  program¬ 
ming  the  SDS  with  which  they  are  familiar .  These  examples  show  various 
schedules  of  reinforcement  as  described  in  A  Primer  of  Operant  Condition 
ing.  by  G.  S.  Reynolds  (1) ,  and  include  the  state  diagram  and  the  source 
language  program. 

The  first  example  given  is  that  of  a  continuous  reinforcement  schedule 
(CRF)  (1 ,  p .  36) .  Continuous  reinforcement  is  reinforcement  that  occurs 
every  time  a  correct  response  occurs .  This  procedure  would  be  diagrammed 
and  programmed  as  shown  in  Figure  17. 
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tHa2 

SB,! 

THAi 

IF*  W 

AFaI0aT 

HU,  OPCOM 
0 

NEWS 

INPUT  FROM  DISC?? 

NO 

9 

ST1  TT  1  R  1  TH  2$ 

9 

ST2  AF  10  T  SB  1  TH  1$ 
9 

END! 


Figure  17 .  Diagram  and  Program  for  a  CRF  Schedule 


If  the  program  In  Figure  17  were  used,  it  can  be  seen  that  upon  every 
occurrence  of  response  #1  a  transition  would  be  made  to  state  #2  in  which  stim- 
ulua  #1  would  be  issued  for  10  ticks  of  the  system  clock  (100  ms) .  After  100  me 
had  elapsed  a  transition  would  be  made  back  to  state  #1  where  another  response 
#1  would  be  awaited .  A  program  such  as  this  would  tie  up  the  SDS  since  it  has 
no  means  of  getting  out  of  the  continuous  loop.  Figure  18  shows  two  ways  to 
exit  this  continuous  loop .  The  first  method  uses  the  following  instruction  as 
a  counter ,  and  the  second  method  increments  a  variable  during  each  pass 
through  the  loop  and  teats  for  the  variable  being  equal  to  a  preset  count  using 
the  modified  IF  instruction . 
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RU,  OPCOM 
8 

NEWS 

INPUT  PROM  DISC?? 

NO 

8 

ST1  FOL  50  S  3  SS  2$ 

@ 

ST2  IF  1  R  1  TH  3$ 

8 

ST3  AF  10  T  ST  1  TH  2$ 
9 

ENDS 


RU  .OPCOM 
0 

NEWS 

INPUT  FROM  DISC?? 

NO 

0 

ST1  IF  A  EO  B  SS  2  VAR  A=0,  B=50S 
0 

ST2  rF  1  R  1  TH  3$ 

0 

ST3  AF  10  T  ST  1  TH  2  VAR  A=A+I$ 
l 

ENDS 


Figure  18.  Methods  of  leaving  Continuous  Loop 
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A  fixed-ratio  schedule  (FR)  requires  that  a  fixed  number  of  responses  be 
received  for  every  reinforcement  (1,  p.  67)  Figure  19  describes  an  FR  schedule 
that  issues  a  reinforcement  stimulus  after  each  count  of  10  response  #1 .  The 
program  will  terminate  after  50  reinforcements  have  been  issued. 


SS,2 

E 

THa3  li 

11 

TH,2 

'h'W 

— 

AFa10aT 

— 

F0La50„S,3 

RU.  OPCOM 
© 

NEWS 

INPUT  FROM  DISC?? 

NO 

0 

ST1  FOL  50  S  3  SS  2$ 

0 

ST 2  IF  10  R  1  TH  3S 
0 

ST3  AF  10  T  ST  1  TH  2S 
© 

ENDS 


Figure  19,  Diagram  and  Program  for  FR  Schedule 
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A  variable-ratio  (VR)  schedule  is  a  schedule  In  which  the  number  of 
responses  required  for  one  reinforcement  varies  from  the  number  of  responses 
required  for  other  r Enforcements  (1,  p .  87) .  The  number  of  responses  required 
for  each  reinforcement  are  irregular  bv  t  are  usually  repeating  numbers .  Figure 
20  describes  a  VR  schedule  in  which  the  variable-ratio  table  is  read  in  from  the 
paper  tape  reader .  When  the  entire  table  has  been  used .  the  table  pointer  is 
reset  and  the  schedule  is  then  repeated .  This  process  is  continued  until  it  has 
been  performed  50  times . 


RU ,  OPCOM 
9 

NEWS 

INPUT  FROM  DISC?? 

NO 

ST1  AF  1  S  TH  2  DIM  A,  10  RDR  A*$ 

0 

ST2  FOL  50  S  3  SS  3$ 

0 

ST3  FOL  10  S  5  SS  4  TH  3  VAR  B=l$ 

0 

ST 4  IF  A(B)  R  1  TH  5$ 

@ 

STS  AF  10  T  TH  4  ST  1  VAR  B=B+1| 

0 

END! 

Figure  20.  Dtasrarn  and  ProRram  for  VR  Schedule 
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A  fixed-interval  (FI)  schedule  has  a  constant  time  delay  before  a 
response  can  be  reinforced  (1,  p.  87) .  Figure  21  describes  an  FI  schedule 
that  Issues  a  reinforcement  stimulus  after  10  seconds  have  elapsed  if  response 
#1  occurs .  The  program  will  terminate  after  50  reinforcements  have  been  issued 


RU,  OPCOM 
O 

NEW! 

INPUT  FROM  DISC?? 

NO 

9 

ST1  FOL  50  S  4  Sf  21 
0 

ST2  AF  10  S  TH  3$ 

0 

ST3  IF  1  R  1  TH  4S 
0 

ST4  AF  10  T  ST  1  TH  2$ 
0 

END! 


Figure  21.  Diagram  and  Program  for  FI  Schedule 


A  variable  interval  (VI)  schedule  varies  the  amount  of  time  delay  required 
before  a  response  can  be  reinforced .  Figure  22  describes  a  VI  schedule  that 
issues  a  reinforcement  stimulus,  after  A(B)  seconds  have  elapsed,  if  response  #1 
occurs.  The  program  will  terminate  after  500  reinforcements  have  been  issued. 


RU, OPCOM 
© 

NEW$ 

INPUT  FROM  DISC?? 

NO 

0 

ST1  AF  1  S  TH  2  DIM  A.  10  RDR  A*$ 

0 

ST 2  FOL  50  S  3  SS  3$ 

0 

ST3  FOL  10  S  6  SS  4  TH  3  VAR  B=l$ 

0 

ST 4  AF  A  (B)  S  TH  5« 

0 

ST 5  IF  1  R  1  TH  6  VAR  B=B+1$ 

0 

ST8  AF  10  T  ST  1  TH  4$ 

© 

END! 

Figure  22.  Diagram  and  Program  for  VI  Schedule 
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A  schedule  in  which  a  reinforcement  occurs  with  a  response  only  if  a 
designated  amount  of  time  has  elapsed  since  the  occurrence  of  th6  last  response 
is  a  differential  reinforcement  of  low  rates  of  responding  (DRL)  schedule 
(1 ,  p .  94) .  Figure  23  describes  a  DRL  schedule  in  which  a  reinforcement 
stimulus  is  issued  if  and  only  if  30  seconds  have  elapsed  since  the  last  response. 
The  technique  of  using  the  THEN  instruction  should  be  noted  since  it  is  an 
effective  means  of  making  conditional  branches .  No  master  counter  is  used  in 
this  diagram  for  simplification  of  the  drawing . 


RU.  OPCOM 
0 

NEWS 

INPUT  FROM  DISC?? 

NO 

0 

ST1  FOL  1  S  3  OR  AF  30  S  SS  2  TH  A  VAR  A=4S 
0 

ST2  IF  1  R  1  TH  3$ 

0 

ST3  AF  10  T  VAR  A-1S 
0 

ST 4  IF  1  R  1  TH  5$ 

0 

ST5  AF  10  T  ST  1  TH  1$ 

0 

ENDS 

Figure  23.  Diagram  and  Program  for  DRL  Schedule 
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A  schedule  in  which  a  reinforcement  occurs  with  a  designated  number 
of  responses  and  only  if  a  designated  amount  of  time  has  not  elapsed  is  a  differ¬ 
ential  reinforcement  of  high  rates  of  responding  (DRK)  schedule  (1,  p.  94) . 
Figure  24  describes  a  DRH  schedule  in  which  a  reinforcement  stimulus  is  issued 
if  and  only  if  10  response  #1  occur  before  one  second  has  elapsed.  If  one  second 
elapses  before  the  10  responses  occur,  the  response  counter  is  reset  and  no 
reinforcement  stimulus  is  issued .  No  master  counter  is  used  in  this  diagram  for 
simplification  of  the  drawing . 


RU.  OPCOM 

0 

NEW? 

INPUT  FROM  DISC?? 

NO 

0 

ST1  FOL  1  S  3  OR  AF  1  S  SS  2  TH  A  VAR  A=l? 

0 

ST2  IF  10  R  1  TH  3$ 

0 

ST3  AF  1  T  VAR  A=4$ 

@ 

ST 4  AF  10  T  ST  1  TH  1? 

© 

END? 

Figure  24.  Diagram  and  Program  for  DRH  Schedule 

There  are  more  complex  known  schedules  of  positive  reinforcement,  but  since 
most  of  these  schedules  can  be  reduced  to  variations  of  response  ratios  and  time 
intervals,  combined  with  differential  reinforcement  of  low  or  high  rates  of  respond¬ 
ing  when  necessary  (1 . p .  67)  ,  no  other  schedules  of  reinforcement  will  be  discussed 
in  this  section .  Every  form  of  each  instruction  was  not  shown  in  the  preceding 
examples.  Refer  to  Section  V,  the  SDS  Instruction  Set,  for  additional  programming 
and  diagramming  information.  Appendix  F  describes  possible  errors  that  may  occur 
when  programming  SDS  and  should  be  reviewed  prior  to  using  the  system. 


C .  Running  SDS  Programs 

Figures  17  through  24,  used  In  describing  programming  SDS,  each  Include  an 
END$  instruction  as  the  last  instruction  in  the  source  programs.  When  this  Instruction 
is  received  by  the  operator  communications  package,  the  message  "START  EXP. 7"  is 
printed  on  the  CRT .  A  yes  or  no  reply  must  be  entered  on  the  keyboard  when  this 
question  is  asked;  otherwise ,  SDS  will  wait  approximately  32  seconds  and  assume  the 
answer  was  yes .  If  the  reply  is  yes ,  OPCOM  creates  an  output  file  named  OPOUT  that 
contains  a  copy  of  the  source  program  that  was  input  from  the  console  keyboard.  OP¬ 
COM  then  instructs  SDS  to  run  the  experiment .  If  the  reply  to  the  start  experiment 
question  was  no ,  OPCOM  creates  an  output  file  named  OPOUT  that  contains  a  copy  of 
the  source  program  that  was  input  from  the  console  keyboard.  OPCOM  then  instructs 
SDS  to  terminate  the  program  Figures  25  and  26  are  examples  of  use  of  the  yes 
or  no  reply  given  by  the  user  to  the  question,  START  EXPERIMENT??  .  When  an 
SDS  program  terminates  properly ,  the  message  "END  OF  EXPERIMENT  1"  is  printed 
on  the  CRT  and  the  system  is  suspended .  The  entry  *GO, OPCOM  must  be  entered 
on  the  keyboard  in  order  to  te/minate  all  programs  and  return  to  RTE-II's  FMGR . 
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Figure  25.  Programming  and  Running  an  SDS  Program 
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RU,  OPCOM 
0 

NEW$ 

INPUT  FROM  DISC?? 
NO 
© 

ST1  FOL  50  S  3  SS  2$ 
0 

ST2  AF  1  S  TH  3$ 

@ 

ST3  AF  1  S  TH  2j 
0 

ENDS 

START  EXP? 

NO 

♦GO.  OPCOM 


Figure  26 .  Programming  and  Not  Running 
an  SDS  Program 
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D .  Using  Disc  Files  OPIN  and  OPOUT 

When  the  operator  communications  program  OPCOM  reaches  the  ENDS  instruction , 
as  previously  mentioned  it  creates  an  output  file  named  OPOUT  that  contains  a 
copy  of  the  source  program .  OPCOM  also  moves  the  file  OPOUT  into  the  file 
OPIN  when  it  terminates  the  SDS  program .  This  automatic  loading  occurs  to 
enable  multiple  runs  of  the  same  program  without  having  to  retype  the  program 
from  the  console  keyboard.  Figure  27  shows  an  example  of  a  multiple  run  where 
the  first  run  was  input  on  the  keyboard  and  the  second  run  was  input  from  the  disc . 


:  HU  .OPCOM 
0 

NEW! 

INPUT  FROM  DISC?? 
NO 
0 

ST1  AF  20  S$ 

0 

END! 

START  EXP? 

YES 

END  OF  EXP  1 

♦GO.  OPCOM 


:  RU,  OPCOM 
0 

NEWS 

INPUT  FROM  DISC?? 
YES 
0 

NEWS 

0 

ST1  AF  20  SS 
0 

ENDS 

START  EXP? 

YES 

END  OF  EXP .  1 

♦GO,  OPCOM 


Figure  27.  Multiole  Runs  of  Program 
Using  Input  File  OP.rJ 
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The  following  procedure  can  be  used  to  save  the  source  program  in  OPOUT 
for  later  use.  After  terminating  the  SDS  issue  the  following  FMGR  command: 

:  ST. OPOUT, NAME 

Where 

:  is  the  FMGR  promp*  character  not  typed  by  the  user; 

ST  is  the  FMGR  store  command; 

OPOUT  contains  the  source  file; 

and  NAME  is  any  unused  file  name  selected;  i.e.  FILE,  SAVE,  JOB1,  etc. 

There  are  several  methods  to  create  a  file  that  can  be  used  in  OPIN  as 
an  input  file  to  OPCOM .  These  methods  are  discussed  in  detail  in  Appendix  E . 

VTI.  THE  SDS  LOG 

The  SDS  log  program  is  a  low  priority  program  that  collects  data  concerning 
all  events.  Program  LOGG  writes  the  data  on  magnetic  tape  when  one  of  its  two 
buffers  is  filled  and  at  the  end  of  any  SDS  program .  The  time  of  the  beginning 
and  end  of  the  experiment,  the  beginning  and  end  of  each  state,  and  the  ccur- 
rence  of  all  responses  is  logged  on  the  magnetic  tape .  This  allows  the  user  to 
determine  precisely  what  events  took  place  during  the  experiment  and  to  collect 
statistical  data  by  using  off-line  programs  after  the  experiment  has  been  com¬ 
pleted.  The  format  of  each  log  event  is  shown  in  Table  HI.  A  sample  SDS 
program  run  including  a  copy  of  the  log  is  described  in  Appendix  G . 

Table  HI 

Format  of  Log  for  Each  Event 


Word 

Start  of  Exp . 

Start  of  State 

End  of  State 

Resps . 

End 
of  State 

1 

1000 

2000 

3000 

4000 

5000 

2 

Exp.  # 

Exp .  # 

Exp .  # 

Exp .  # 

Exp.  # 

3 

N/A 

State  # 

State  # 

State  # 

N/A 

4 

N/A 

N/A 

N/A 

Bit  # 

N/A 

5 

10s  of  ms 

10s  of  ms 

10s  of  ms 

10s  of  ms 

10s  of  ms 

6 

seconds 

seconds 

seconds 

seconds 

seconds 

7 

minutes 

minutes 

minutes 

minutes 

minutes 

8 

hours 

hours 

hours 

hours 

hours 

9 

day  of 

day  of 

day  of 

day  of 

day  of 

NOTE:  Word  two  of  each  event,  the  experiment  number,  was  included  to  facili¬ 
tate  future  expansion  of  the  SDS  system  to  control  multiple  experiments .  Words 
five  thru  nine  give  precise  time  of  day  and  day  of  year  only  if  the  proper  time  and  date 
were  set  up  using  RTE  commands:  otherwise ,  they  are  relative  to  the  initial 
values  of  words  five  thru  nine . 
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APPENDIX  A 

IN-CORE  MULTITASKING  USING  RTE-II 
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APPENDIX  A 


IN-CORE  MULTITASKING  USING  RTE-H 
SYSTEM  GENERATION 

The  approach  used  to  accomplish  the  desired  multitasking  capabilities 
required  that  a  new  system  be  generated  that  Included  eight  dummy  programs . 
These  programs  were  named  T1XXX  through  T8XXX.  These  names  were 
selected  to  identify  them  as  tasks  (T) ,  to  number  them  (1-8) ,  and  to  meet  the 
requirement  of  the  event  sense  Interface  routine  that  the  last  three  letters  be 
Xs .  Since  these  programs  are  included  only  for  the  purpose  of  generating  ID 
segments  and  are  never  executed ,  their  contents  can  be  any  valid  instructions . 
It  is  important  to  keep  them  as  short  as  possible  because  they  are  foreground 
resident  programs  and  therefore  are  wasted  core .  The  programs  used  in  this 
generation  were  all  identical  except  for  the  NAM  statement  and  included  the 
following  code: 


ASMB.R.L 

NAM  T1XXX.1 .4 
BGN1  HLT 

END  BGN1 

Each  of  these  programs  required  only  one  word  of  core  and  is  non -ex  ecu  table 
due  to  the  HLT  instruction.  If  the  programs  were  scheduled  before  their  ID 
segments  were  modified ,  as  discussed  later  in  this  Appendix ,  a  memory  protect 
violation  would  occur  in  the  system  which  serves  as  a  desirable  warning . 

1)  Generating  these  tasks  into  the  system  requires  several  entries  in  the 
answer  file  f(  ?  the  on-line  generator,  RTGN2.  These  entries  are: 

Program  input  phase 

REL ,  VT1XXX 
REL ,  %T2XXX 
REL,  %T  3  XXX 
REL  ,%T4XXX 
REL .  %T  5XXX 
REL ,  5«jT6XXX 
REL ,  %T7XXX 
REL ,  %T8XXX 
REL ,%NTSK 

2)  The  interrupt  table  Included  ent  ies  assigned  to  unused  device  select 
codes  for  future  modifications  and  uses ,  such  as  driver  debugging  and  for 
setting  up  pointers  to  the  desired  ID  segments. 


38.PRG.T1XXX 

37,PRG,T2XXX 

40. PRG.T3XXX 

41. PRG.T4XXX 

42. PRG.T5XXX 

43. PRG,T8XXX 

44. PRG.T7XXX 

45. PRG.T8XXX 

Upon  completion  of  the  system  generation  three  goals  have  been  achieved . 
First,  the  dummy  programs  are  in  core  and  will  issue  a  memory  protect  warn¬ 
ing  when  used  improperly .  Secondly ,  an  ID  segment  has  been  generated  for 
each  of  the  dummy  programs  which  will  be  used  to  load  multiple  programs  into 
core  using  the  RTE-n  loader .  Each  of  these  programs  required  one  word  of 
foreground  core,  two  words  in  the  device  reference  table,  one  word  in  the 
interrupt  table,  and  22  words  for  the  ID  segment.  Third,  a  pointer  to  each  of 
the  programs  has  been  set  up  in  the  interrupt  table. 

In  order  to  describe  the  use  of  the  multitasking  technique ,  two  programs 
will  be  used.  These  programs  named  PROGA  and  PROGB  contain  the  following 
code. 

FTN4.L 

PROGRAM  PROGA 
DIMENSION  NAM  (3) 

DATA  NAM/  2HPR ,  2HOG ,  2HB  / 

WRITE  (1,10) 

10  FORMAT  ("TEST  PROGA") 

CALL  EXEC  (9  ,NAM) 

END 

END$ 

FTN4.L 

PROGRAM  PROGB 
WRITE  (1,10) 

10  FORMAT  ("TEST  PROGB") 

END 

ENDS 

Assuming  these  programs  had  been  compiled  and  relocatable  programs 
were  available,  any  attempt  to  load  and  run  them  in-core  in  a  single  partition 
using  RTE-H's  loader  would  fail.  For  example,  if  a  procedure  was  used  as 
follows: 

:  LG,  1 

:  MR ,  %PROGA 

:  MR ,  %PROGB 

:  RU  ,LOADR  ,99,1 


The  loader  would  accept  both  relocatable  programs,  load  them  into  background, 
show  both  of  them  on  the  load  map ,  but  allow  only  PROGA  to  be  run .  On  the 
other  hand,  if  the  two  programs  were  loaded  separately,  the  programs  would 
load  and  run  but  would  not  be  contained  in  core  simultaneously , 

If  program  PROGB  were  modified  and  made  a  subroutine ,  as  shown  below , 
both  PROGA  and  PROGB  would  be  in  core  simultaneously ,  but  when  PROGA 
attempted  to  execute  the  CALL  EXEC  (9, NAM)  an  error  would  occur  because 
PROGB  would  have  no  ID  segment.  Getting  both  programs  into  core  simul¬ 
taneously  is  necessary;  therefore,  PROGB  would  need  to  be  modified  as 
follows: 

FTN4.L 

SUBROUTINE  PROGB 
WRITE  (1,10) 

10  FORMAT  ("TEST  PROGB") 

END 

ENDS 

In  order  to  have  the  capability  of  scheduling  PROGB ,  an  ID  segment 
generated  for  one  of  the  dummy  programs  will  now  be  modified  to  point  to 
PROGB .  To  accomplish  this  PROGA  must  be  modified  as  follows: 

FTN4.L 

PROGRAM  PROGA 
DIMENSION  NAM  (3) 

DATA  NAM/2HT1 , 2HXX ,  2HX  / 

WRITE  (1,10) 

10  FORMAT  ("TEST  PROGA") 

CALL  NTSK1 
CALL  EXEC  (9, NAM) 

END 

END! 

The  call  to  subroutine  NTSK1,  discussed  later  In  this  Appendix,  would 
modify  program  TlXXX's  ID  segment  to  point  to  PROGB.  PROGB  can  now  be 
scheduled  using  the  CALL  EXEC  (9, NAM);  however,  it  must  now  be  referred 
to  as  T1XXX,  Using  this  technique  as  many  as  nine  programs  can  be  in  a  single 
partition  simultaneously.  In  this  case,  for  example,  PROGA  and  T1XXX 
THROUGH  T8XXX  could  be  installed  In  a  single  partition,  removing  the  neces¬ 
sity  to  swap  programs  to  and  from  *he  disk  in  order  to  muitiprogram .  This 
approach  was  desirable  in  the  State  Diagram  System  primarily  because  of  the 
overhead  in  swapping  programs  in  and  out  of  core. 

There  were  two  options  available  when  attempting  to  modify  ID  segments 
using  subroutine  NTSK1 .  The  first  was  to  contain  the  code  required  to  modify 
the  ID  segment  and  the  code  to  establish  the  pointer  to  the  program  being 
installed,  PROGB  in  the  above  example,  in  a  single  subroutine.  The  second 


option  was  to  contain  the  code  required  to  modify  the  ED  segment  in  one  sub¬ 
routine  and  to  have  as  many  as  eight  subroutines  to  generate  pointers  to  programs 
being  installed.  Since  the  latter  method  consumed  less  core,  it  was  selected 
for  use  in  SDS . 

The  following  subroutine  was  generated  to  establish  pointers  to  those 
programs  being  Installed  In  core  simultaneously . 

ASMB.R.L 

NAM  NTSK1.8 

EXT  NTSK,  PROGB,  .ENTR 

ENT  NTSK1 

NTSK1  NOP 

JSB  .ENTR 
NOP 

JSB  NTSK 
DEF  *+3 
DEF  ONE 
DEF  PROGB 
JMP  NTSK1.I 

ONE  OCT  1 

END  ~ 

END$ 

Subroutine  NTSK1  gets  the  entry  point  address  of  the  program  being  installed, 
PROGB  in  the  above  example ,  and  passes  it  to  subroutine  NT3K  for  installation 
in  the  ID  segment  of  T1XXX  as  designated  by  the  first  parameter  labeled  ONE. 

As  can  be  seen,  a  similar  subroutine  would  be  required  to  install  other  pro¬ 
grams.  For  example,  by  changing  all  NTSK1  to  NTSK2  and  replacing  those 
underlined  words  in  the  program  with  PROGC ,  TWO ,  PROGC  ,  TWO ,  and  2 , 
respectively ,  the  subroutine  would  install  PROGC  in  core  using  T2XXX'a  ED 
segment . 

The  following  subroutine  was  generated  to  modify  the  ID  segments  of 
T1XXX  through  T8XXX.  It  can  be  included  in  the  system  during  system 
generation  or  it  can  be  loaded  using  RTE-II's  loader. 

ASMB.R.L 


ARG 

NTSK 


NAM  NTSK ,  8 
ENT  NTSK 

EXT  $LIBR,$LIBX,  .ENTR, EXEC 

BSS  2 

NOP 

JSB  .ENTR 
DEF  ARG 

LDB  ARG, I  GET  TASK  NUMBER 

ADB  TABA  SET  UP  INDEX 

JSB  $LIBR  DROP  FENCE 

NOP 


ADONE 

LDA  BREG, I 
ADA  INTBA 
LD3,  AREG, I 
SSB.RSS 

JMP  ADONE 
CMB.INB 

STB  AREG, I 
ADB  B7 

TABA 

LDA  ARG+1 
ADA  =B3 

STA  BREG, I 
JSB  $LIBX 
DBF  NTSK 
JMP  NTSK, I 
DEF  * 

AREG 

OCT  36 

OCT  37 

OCT  40 

OCT  41 

OCT  42 

OCT  43 

OCT  44 

OCT  45 

EQU  OB 

BREG 

EQU  IB 

INTBA 

EQU  1854B 

D7 

OCT  7 

END 

ENDS 

GET  INT  TABLE  POSIT 
SET  UP  INDEX 
GET  ID  SEG  ADR 
NEGATIVE? 

NO 

YES  MAKE  IT  POS  . 

AND  PUT  IN  TNT  TABLE 
ADJ  TO  WORD  8 
GET  TASK  ADR 
ENTRY  POINT 
INSTALL  TASK 
UP  FENCE 

RETURN 


Subroutine  NTSK  receives  the  desired  task  number  and  task  entry  point  from 
subroutines  NTSK1-NTSK8 .  This  Information  is  then  used  to  modify  word  eight 
of  the  desired  ID  segment,  making  it  point  to  the  task  being  Installed .  For  the 
State  Diagram  System  no  attempt  was  made  to  change  the  name  words  In  the  ID 
segment.  If  calling  PROGB ,  T1XXX,  after  the  task  installation  is  undesirable 
words  13,  14,  and  15  of  the  ID  segment  must  be  modified  to  contain  PR,  OG, 
and  Bb,  respectively .  This  would  not  be  a  difficult  task  and  subroutine  NTSK 
could  easily  be  modified  to  attain  this  goal . 
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APPENDIX  B 

SDS  PROGRAM  AND  SUBROUTINE  LISTINGS 


LS-1 


OPCON  T  *0  0  00  3  IS  ON  CR00002  USING  00024  8LKS  R-0000 


FT  N4 

PROGRAM  OPCON 

COMMON  J  ,  IARAYC72),  IVT(90),ISN, I V , NBR 1 
COMMON  NBR2,N0R3,NBRQ1, I  REL, I  TERM , KV 
COMMON  LI  NEC  13 >,  IAFLG<  3  )  , INDAYC  13  ) 

DIMENSION  NAHC  3  > ,  IPRMC3  )  /  IANSC2  > ,  NAMK  3  > 

DIMENSION  IB1C  1 ) , I B2< 36  ) 

DIMENSION  IB7C10),  IB8C  12  >,  I B  9  <  1  4  > ,  IB  IOC  12),  IBUC14) 
DIMENSION  IB13(1S>,NAH2(3),IRB(3) 

EQU I  VALENCE  (  I RB ( 1  ) , N BR 1 > , ( I R B<  2  ) , NB R2  > , <  I R B <  3 > , N BR 3 > 
DATA  NAM/2HT4, 2HXX  ,  2HX  / 

DATA  NAN  1 /2HSD , 2HS  ,2H  / 

DATA  NAM2/2HT6 , 2HXX  ,  2HX  / 

DATA  IBI/2M  9/ 

DATA  IB772HST , 2HAR, 2HT  ,2HEX,2H P?/ 

DATA  l  88  F  2H  8  A  ,  2ND  ,  2H0P  ,  2HER,  2HAT  ,  2  H  Q  R  /' 

DATA  I89F2H0U , 2HTS , 2H  ID , 2HE  , 2H T A , 2H BL , 2H E  / 

DATA  1B10  72HN0/2H  0 , 2 HC T , 2 H A L , 2 H  N  ,  2  HB  R  / 

DATA  IB1  i/'2HBA,2HD  ,  2HB  I  ,  2HNA  ,  2HRY  ,  2N  F  ,  2 HN  T  / 

DATA  I813/2HIN,2HPU,2HT  , 2 HF R , 2  HO M , 2 H  D,2HIS,2HK  ,2H??7 
C  INITIALIZE  VARIABLES 

IDISK-0 
I  S  M  *  0 
IREL-0 
INEW-0 
DO  1  1*1,3 
1  I  AFLGC  I  >-0 

C  ENTRY  POINT  FOR  NEW  STATE 
b  IAMOR-O 

I FLG  *0 
DO  3  1*1,13 
3  LINEC  I  )*0 

DO  3  I *1 , 90 
3  I  VTC  I  > *0 

NTERN»0 

C  KV  IS  VAR  TABLE  PTR 
KV-t 

C  ENTRY  POINT  TO  CONTINUE  A  STATE 
7  ITERH-0 

C  PROMPT  OPERATOR  TO  INPUT  NEXT  LINE 
CALL  FXECC  2 , l ,  IB  1 ,  1  > 

C  READ  A  LIME  AND  FGSITION  PROPERLY 
C  IF  DISK  FLAG  IS  SET  READ  FROM  DISK 
IFC  I  DI  SK . NE  1 >G0  TO  11 
IP-0 

C  SKED  RDURT  FOR  READ 

CALL  EXEC C 9, HP  M2, IP  > 

C  GET  CLASS  NUMBER  THEN  READ  A  RECORD 
CALL  RNPARC  IPFM  ) 


0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0  08  0 
0081 
0  08  2 
0093 
0084 
0035 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0  100 
0101 
0102 
0  103 
0  104 
0103 
0106 


CALL  EX£C<21,  IPRMC2  >;  IB2/36) 

00  8  1*1/36 

IC0H0-IAH0(  I B  2  < I  >,  1  774008  ) 

I  F<  ICONO  .  EQ  .220000  >  IB  2<:  I  >  =  220  40B 
IF<  I  CO  MO . EQ .220008  >IBK*I  +  1 
IF<  ICONO . EQ .22000B >G0  TO  87 
I CONO- I AND<  1 S 2 (  I  >/  377B) 

I F( ICOND . Efi 448>IBK=I+1 
I F( ICONO . EU .448)00  TO  87 

8  CONTINUE 
GO  TO  89 

87  DO  88  I-IBK/36 

88  I B2 (  I  )*20040B 

C  WRITE  RECORD  ON  CRT 
84  CALL  E  XEC ( 2  >  1  /  182/ 36  ) 

GO  TO  13 

C  READ  RECORD  FROM  KEYBOARD 
1  CALL  £XEC<  1.40  18,  182, -72  ) 

C  IF  NEW  FLAG  IS  CLEAR  RDWRT  TASK  IS  NOT  INSTALLED 
13  I F<  INEW . NE  .  1 )G0  TO  12 
I  P 1  »  1 
IP«1 
ICLAS-0 

C  SEND  A  RECORD  TO  RDWRT 

CALL  E:<£C(  20.  0,  1  82.  38.  JDUN.  I  DUN.  ICLAS) 

C  DO  NOT  WRITE  NEW*  RECORD 

IF(  I82< 1  )  EQ. 2 H H E ) G 0  TO  12 
C  SKED  RDWRT  FOR  WRITE 

CALL  EXEC(9/NA«2,  IP,  IP1  .  ICLAS  ) 

C  CONDX  STATE  RECORD  AND  PUT  IN  IARAY 
12  Jl*l 

DU  9  1-1.36 

IARAYC  Jl  )*IAND< IB2<  I  >/ 1  77400B  > 

. AR  A  Y<  J1  )*ISHFT<  IARAY  (J1  >.  -8  ) 

I ARAY<  Ji  +  1 )*I AND< IB2(  I  ) . 37 7B  ) 

9  Jl-Jl+2 
J  *0 


C  TERMINATING  CHAR  IN  LINE  ? 

DO  10  1-1/72 

IF<  I AR  AY  <  I  )  .  EQ  .448  )  J  *  J  +  1 
I F<  I ARAY<  I  > . EQ  .  448  >  GO  TO  15 
10  CONTINUE 

C  NO  TERMINATING  CHAR  IN  LINE  THEN  SET  FLAG 
NTEKM-1 
CALL  SKPSP 

IF<  ITERM  EQ . 2  )G0  TO  7 
C  NEW  ? 

15  iF(  IARAY <:  J  )  EQ  .  1  16B  >  GO  TO  70 
C  END  ? 

IF(  IARAYC J  )  EQ  .  1  058  >  GO  TO  85 
C  STATE  7 

17  IF( I  AR  AY  <  J  )  NE.123B)  GQ  TO  20 
C  STATE  LOGIC 

CALL  SKPSP 

I F  C  ITERM . NE . 0  /  GO  TO  1020 

C  IF  STATE  FLAG  IS  SET  THIS  MUST  BE  SUBSTATE  OR  STIMULUS 


0107 
0108 
0109 
0  110 
0  111 
0112 
0113 
0114 
011S 
0116 
0117 
0118 
0  119 
0120 
0121 
0  122 
0123 
0  124 
0123 
0  126 
0127 
0  128 
0129 
0  130 
0131 
0  132 
0133 
0  134 
0133 
0136 
0  137 
0138 
0  139 
0  140 
0141 
0  142 
0  143 
0  144 
0  143 
0  146 
0  14  7 
0  148 
0  149 
0  130 
0131 
0  132 
0  133 
0  134 
0  133 
0  136 
0  137 
0  158 
0  139 
0  160 
0  16  1 
0  162 
0  163 


I FC IFLG.EQ. 1  ) GO  TO  451 

IF  C IARAYC J >. ME. 124B)  GO  TO  451 

CALL  SKTNB 

I FC  ITERM . NE .0  >  GO  TO  1020 
I ANOR-O 

IF<  H TERM . EQ  .  1  )IFLG*1 
CALL  NBRTY 

I  F<  ITER!*  ME  .0  )G0  TO  1020 
ISN-NBR2 

C  STATE  NUMBER  WITHIN  LIMITS  ? 

I F< ISN  GT  .30)  GO  TO  802 
GO  TO  30 

20  I  FC  N  TERM . NE . 1  )  GO  TO  802 
C  IF  ? 

30  IF<  I ARAYC J  )  EQ . 1 11B >G0  TO  100 
C  AFTER  ? 

IF<  IARAY<  J ) . EQ . 101B  >G0  TO  200 
C  FOLLOWING  ? 

IF<  I ARAY< J  )  EQ . 1068  >  GO  TO  300 
C  ANO/OR  ? 

I F<  IANOR . NE  .  1  )  GO  TO  400 
J  *J  -  2 

GO  TOC  103  -  203 , 303.  103  ) , L  I N E(  1  ) 

C  GO  TO  THEN  LOGIC  SINCE  NONE  OF  ABOVE  WAS  TRUE 
C  NEW  LOGIC 
70  CALL  StCPSP 

I FC  I  TERM . NE . 0  )G0  TO  l 020 

IFC  IARAYCJ)  NE.103B  >  GO  TO  800 

CALL  SKPSP 

I FC  I  TERM .  NE  .  0  )G0  TO  1 020 

IFC  IARAYC  J  )  NE.127B  >  GO  TO  800 

IPRMC  1  >*1 

C  NEW  OK  CALL  SOS  TO  CLEAN  HOUSE  AND  INSTALL  TASKS 
C  00  NOT  PERFORM  MEW*  TWICE 
IFC  IMEW. EQ. 1 ) GO  TO  6 
CALL  EXECC 9 , NAM1 , IPRMC  l  )  > 

I  V*  1 

C  SET  NEW  FLAG 
INEW-1 
IP1*0 
IP*  1 
I  CL  A  S*  0 

CALL  EXECC  20, 0 , I B2 . 36 , JOUM ,  I OUM ,  I CLAS  ) 

C  SKED  ROURT  FOR  NEW*  WRITE 

CALL  EXECC9,NAN2,IP,IP1,  ICLAS) 

CALL  EXECC  3  ,  l  1  01 B,  l  ) 

CALL  EXECC  2 ,1.18  13,18) 

CALL  EXECC l . 4 0  1 B , I  A  NS , 2  ) 

C  SET  DISK  FLAG  IF  READ  FROM  DISK 
IFC  IANS. EQ. 2HYE)IDISK*1 
GO  TO  6 
C  END  LOGIC 
83  CALL  SKPSP 

I FC  I  TERM .  NE . 0  )G0  TO  1020 

IFC  IARAYC  J  )  .NE  .  1  168  )  GO  TO  AOO 

CALL  SKPSP 

I  FC  I  TERM  HE . 0  )  GO  TO  1020 
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0164 
0  163 
0166 
0167 
0168 
0169 
0  170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0  178 
0  179 
0180 
0181 
0  182 
0183 
0  184 
0  185 
0  186 
0187 
0188 
0  189 
0190 
0191 
0  192 
0193 
0194 
0195 
0196 
0197 
0  198 
0  199 
0200 
020  1 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0512 
0213 
0214 
0213 
0216 
021  7 
0218 
0219 
0220 


IF<  IARAYC J  )  HE . 104B  >  GO  TO  800 
C  END  OK  CALL  SOS  WITH  NECESSARY  PARHS 
CALL  EXEC  <  2 / 1 ,  IB7,  10) 

CALL  EXEC  < 1 ,401B/ IANS/2  ) 

C  START  EXPERIMENT  ? 

IFC  IANS  .  EQ.  2  H  N  0  )  G  0  TO  92 
C  SET  START  FLAG 
ISTRT-1 
I PRMC l  >■  1 
IPRMC2  >-l 
I PRMC  3  >-0 
I PRM<  4  )*1 
I  PR N<  5  )-  0 

CALL  EXtCC  10,  NAM  1 ,  I  PR  IK  t  ),  IPRHC  2)  ,  IPRHC  3  ) ,  I  PRMC  4  ) ,  I  PRMC  3  ) ) 

92  CALL  EXECC 7  ) 

CALL  E XE C < 3  >  1  1  0 1  B  <  1  ) 

IP-3 

CALL  £  XE  C  C  9 <  N  A  M2 /IP) 

I F(  IANS.  HE.  2H  N  0  )  C A  L  L  EX  EC C 6,  N AMI) 

CALL  E  XE  C  <  6  ) 

GO  TO  9999 

C  -****-*<*--**•. -***-********•*•******-**-*•****•*-***-•**  IF  LOGIC 

C  IF  LOGIC 

100  CALL  SKPSP 

I F<  ITERM .  NE  .0  )G0  TO  1020 
IFC  IARAYC J  )  .NE  .  1068  >  GO  TO  790 
IF<  I  AN  OR . NE .0  )  GO  TO  103 
C  TYPE-1 

LINEC  1  >-t 
GO  TO  105 
103  I VTC  KV  )*  1 
KV-KV+3 

105  CALL  SKP1 

r F (  I  TERM . NE  .  0  )G0  TO  1020 
C  GET  COUNT 

CALL  N8RTY 

IFC  ITERM . NE  .0  )G0  TO  1020 
IFC  I ANOR . NE  .  0  )  GO  TO  108 
C  SET  UP  COUNT 

L INEC  4  )- NBR  1 
L I N EC  5  )- NBR  2 
L  INEC  6  )-  N  BR  3 
GO  TO  110 
108  CALL  SVARA 
C  RELATIONAL  FUNCTION  ? 

110  JFLG-J 

IFC IARAYC J ) .NE . 1228 >  GO  TO  175 
CALL  SKPSP 

IFC  ITERN  ,  NE  .0  )G0  TO  1020 
C  NO  -  MULTIPLE  RESPONSE  ? 

IFC  JFLG-l J-l  )  NE .0  )C0  TO  112 
I  FC  IARAYC  J  )  EQ  .  i  02B  )L  INEC  1  )»-  1 
IFC  IARAYC J  )  . EQ  ,  1 02B >  CALL  SKPSP 
C  NO  -  GET  RESPONSE  NUMBER 
112  CALL  NBRTY 

IFC  I  ANOR  HE  0 )  GO  TO  113 
C  SET  UP  OPERAND 


B-5 


0  221 

LINEC7  )-N8Rl 

0222 

LIHEC8  >»NBR2 

0223 

L  INE(  9  )*  N  BR  3 

0224 

GO  TO  113 

0223 

113 

CALL  SVARA 

0  22  6 

IV-IV+9 

0227 

113 

K  K*  1 

0228 

GO  TO  1010 

0229 

C  OR 

7 

0230 

611 

IFC  IARAYC  J ) . NE . 1  178  > 

GO  TO 

135 

0231 

C  OR 

LOGIC 

0232 

CALL  SKPSP 

0233 

I  F<  ITERM  .  HE  .  0  )GQ  TO 

1020 

0234 

IF(  IARAYC  J  )  .NE  .  122B  > 

GO  TO 

800 

0233 

I  FC  I  ANOR  NE  .  0  >  GO  TO 

120 

0236 

C  SET 

UP  OR  TYPE  AND  P TR 

0237 

L  I  ME  (  2  >*  2 

0239 

118 

L  INEC  3  >»  I  V 

0  23  9 

I ANOR*  1 

0240 

130 

I VTC  KV  +  1  )  =0 

024  1 

CALL  SKPSP 

0242 

I  FC  I  TERM . NE . 0  >GQ  TO 

1  020 

0243 

GO  TO  30 

0244 

120 

KV-KV-8 

0245 

I  V T < KV  )■ 2 

0246 

125 

K  V-KV  +  1 

0247 

I  VTC KV  /«  I  V 

0248 

KV-KV+7 

0249 

GO  TO  130 

0250 

C  AND 

? 

0251 

133 

I  FC  IARAYC  J ) .NE  .  1010  > 

GO  TO 

400 

0252 

C  AMD 

LOGIC 

0253 

CALL  SKPSP 

0234 

I  FC  ITERM . NE .0  >G0  TO 

1020 

0253 

I  FC  IARAYC  J  )  NE  .  1  16B  > 

GO  TO 

800 

0256 

CALL  SKP1 

0237 

I  FC  I  TERM . NE . 0  >G0  TO 

1  020 

0238 

J  =J  -  1 

0239 

I  FC  I ANOR . NE .0  >  GO  TO 

140 

0260 

C  SET 

UP  AND  TYPE  AND  PTR 

0261 

L INEC  2 >*1 

0  262 

GO  TO  118 

0263 

140 

KV-KV-8 

0264 

I VTC  KV  >-l 

0263 

GO  TO  125 

0266 

C  MULTIPLE  RESPONSE  LOGIC 

0267 

143 

CALL  SKPSP 

0268 

I  FC  I  TERM  NE . 0  )G0  TO 

1  02  0 

0269 

J  *J  -  1 

0270 

IRBC 1 ) *0 

0271 

IRBC  2 ) *0 

0272 

I  RBC  3  ) *0 

0273 

I  -0 

0274 

I FC  I ANOR  NE .0  )  GO  TO 

147 

0273 

C  SET 

UP  TYPE 

0276 

L INEC 1  >■-  l 

0277 

GO  TO  130 

0278 

147 

KV-KV-6 

B-6 


0279 

I VT < KV  >»-l 

0280 

KV-KV+6 

0281 

130 

I  -1  +  1 

0282 

131 

CALL  SKPSP 

0  287. 

IPC  I  TERM  NE  .0  >G0  TO  1020 

0284 

DO  133  K- 1 , 8 

0  28S 

IFC  IARAYC  J  >  .  EQ  .C  47  +  K)  >  GO  TO  135 

0288 

133 

CONTINUE 

028? 

GO  TO  160 

0288 

133 

CALL  N8R0 

0288 

I  R0 (  D-N8R01 

0  290 

160 

IF<  IARAYC J  )  .NE  .348  >  GO  TO  164 

0291 

I FC  I  . G E  .  3  >  GO  TO  806 

0292 

GO  TO  130 

0  291 

164 

IF<  I  .LT  .  3  >  GO  TO  80  6 

0  294 

J«U-1 

0295 

163 

I F<  I  AN  OR  .  NE  .  0  >G0  TO  167 

0  29  8 

C  SET 

UP  OPERAND 

0297 

L  I N  E  (  7)*IR8(1) 

0298 

LINEC8  )■ I RB  C  2  ) 

0299 

L  INE<  9  )« I RB( 3  ) 

0300 

GO  TO  170 

0301 

166 

I  F (  I ANOR  HE  0  )G0  TO  187 

0302 

L  I N E <  4  >*NBR  1 

0303 

L I NE ( 3  )*N8R2 

0304 

L I N E<  6 >«N0R3 

0301 

GO  TO  170 

0306 

167 

CALL  SVARA 

0307 

IV-IV+9 

0308 

170 

CALL  SKPSP 

0309 

KK-2 

0310 

GO  TO  1010 

031  l 

C  EQUAL  ? 

0312 

175 

IF< IARAYC J  )  .EQ  .  1038  )G0  TO  180 

0313 

C  NOT 

EQUAL  ? 

0314 

IF<  I ARAYC J  )  EQ  1  160  >  GO  TO  184 

0313 

C  LESS 

;  THAN  ?  LESS  THAN  OR  EQUAL  ? 

031  6 

IFC  I ARAYC J  )  EQ  .  1  140 >  GO  TO  187 

0317 

C  GREATER  THAN  ?  GREATER  THAN  OR  EQUAL 

0318 

IFC  I ARAYC J  )  NE  .  1  078  )  GO  TO  800 

0319 

177 

CALL  SKPSP 

0320 

IFC  ITERN  NE  .0  >  GO  TO  1020 

032  1 

C  GREATER  THAN  ? 

0322 

IFC  IARAYC J  )  .EQ  .  1  248  >  GO  TO  179 

0323 

C  GREATER  THAN  OR  EQUAL  ? 

0324 

IFC  IARAYC  J  >  .NE  .  1050  >G0  TO  800 

0323 

IREL-8 

0326 

G  0  TO  190 

0327 

179 

IREL-6 

0328 

GO  TO  190 

0  32  9 

C  EQUAL  LOGIC 

0330 

180 

CALL  SKPSP 

033  1 

I FC  I  TERM  HE  0  >G0  TO  1020 

0332 

I FC  I  ARAYC J  )  NE  1 21 B >  CO  TO  800 

0333 

I  RE  L  *4 

0334 

GO  TO  190 

0333 

C  NOT 

EQUAL  LOGIC 

B-7 


r 


0  33  6 

184 

CALL  SKPSP 

0337 

IF'  ITERH  ME  0  >G0  TO  1020 

0333 

I F<  I ARAYC 0  >  HE  103B  )  GO  TO 

800 

0339 

IREL-9 

0340 

GO  TO  190 

0341 

187 

CALL  SKPSP 

0342 

I F<  ITERH  ME .0  >G0  TO  1020 

0343 

C  LESS 

THAN  ? 

j 

0344 

I F(  1 AR AY < J  >  EQ  .  1  248  >  GO  TO 

189 

0345 

C  LESS 

THAN  OR  EQUAL  ? 

j 

0346 

I F  <  I AR  AY ( J  )  ME. 103B  >  GO  TO 

800 

0347 

I R£L  *7 

0348 

GO  TO  190 

0  349 

189 

IREL-3 

0330 

GO  TO  190 

0331 

C  SET 

UP  RELATIONAL  TYPE 

0332 

190 

I F<  I  AMOR  ME  0  > GO  TO  191 

! 

0333 

LINE<  1  >■ I REL 

i 

0334 

GO  TO  192 

1 

0333 

191 

I  YT< KV-6 >»I REL 

i 

1 

0336 

192 

CALL  SKPSP 

i 

0337 

I  F<  ITERH  ME  0  >  GO  TO  1020 

i 

0338 

CALL  N8RTY 

i 

0334 

C  SET 

UP  OPERAND 

0360 

I F<  I ANOR  NE  0  )G0  TO  193 

036  1 

L INEC  7  >»  N8R1 

0362 

LINE<8>-  NBR2 

i 

0  363 

LIHEC9  )»M8R3 

0  36  4 

GO  TO  194 

0363 

193 

CALL  SVARA 

0  36  6 

I  V  *  I  V  ♦  9 

0  36  7 

194 

KK-4 

0368 

GO  TO  1010 

0369 

C  •*  <M 

0370 

C  AFTER  LOGIC 

037  1 

200 

CALL  SKPSP 

0  37  2 

I  F<  ITERH  HE  0 ) GO  TO  1020 

0373 

I  F<  I AR  AY  C J  )  . HE . 1068  >  GO  TO 

790 

j 

0374 

IFC  I  AMOR . HE  .  0  )  GO  TO  203 

1 

0373 

C  SET 

UP  AFTER  TYPE 

0376 

LI  NEC  1  )*  2 

i 

0377 

GO  TO  205 

0378 

203 

I  VTC KV  )«2 

i 

0379 

KV-KV+3 

0380 

203 

CALL  SKP1 

0381 

I F (  ITERH  .  HE  .0  ) GO  TO  1020 

0382 

CALL  MBRTY 

0383 

IFC  NBR1 . HE.  1 )  GO  TO  166 

1 

0384 

I F (  I TERH  ME  0  >G0  TO  1020 

f 

0383 

C  TICKS  ? 

0386 

I F<  I  ARAYC  J  )  .  HE  .  1  240  )  GQ  TO 

213 

j 

0387 

N  8R  2  NB  R  2 

1 

0388 

GO  TO  166 

i 

0389 

C  SECONDS  ? 

0390 

21  3 

IFC  I ARAYC J )  EQ  .  123B  >  GO  TO 

166 

! 

0391 

C  (11  MOTES  ? 

i 

0392 

IFC  I  ARAYC  J  )  ME  1 138  >  GO  TO 

220 

! 

0-8 


0393 

0394 

0393 

0396 

0397 

0398 

0399 

0400 

040  1 

0402 

0403 

0404 

0403 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0411 

0416 

0417 

0418 

0  419 

0  420 

042  1 

0422 

0423 

0424 

0423 

0426 

0427 

0428 

0429 

0430 

043  1 

0432 

0433 

043  1 

0431 

0436 

0437 

0438 

0439 

0440 

044  1 

0442 

0443 

0444 

0443 

0446 

0447 

0448 

0449 


NBR2-HBR2*60 
GO  TO  166 
C  HOURS  ? 

220  I  c<  I  ARAYC  J  >  .  NE  .  1  10B  >  GO  TO  800 

N3R2 "N8R  2  *360 0 
GO  TO  166 

c  *****.-«.* ****««*«**•«* *«****,****•**,*»**«*•*•.*  following 

C  FOLLOWING  LOGIC 

300  CALL  SKPSP 

I F<  I  TERM , NE  0  )  GO  TO  1020 
IF<  IARAY< J >  .NE . 1 178 >  GO  TO  790 
I F<  I ANOR  NE .0  >  GO  TO  303 
C  SET  UP  FOLLOWING  TYPE 
L  1 N  E  <  1  >-3 
GO  TO  303 
303  IVT(KV>-3 
KV-KV*3 

301  CALL  CKP1 

I F <  I  TERN  NE  0  )G0  TO  1020 
CALL  NB9TY 

I F(  I  TERN . NE . 0  >G0  TO  1020 
I F <  I ANOR . NE  0  )  GO  TO  308 
C  SET  UP  COUNT 

L  I  NE  <  4  )«N8R  1 
L  I N E < 3  >-H8R2 
L INE<  6  )-NBR  3 
GO  TO  632 
308  CALL  SVARA 
C  FOLLOWING  STATE 

63  2  I F<  I ARAYC J  )  NE . I  23 B  )  GO  TO  800 
CALL  SKP1 

I F<  ITERH  NE  .0  )G0  TO  1020 
CALL  N  B  R  T  Y 

C  YES  GO  SET  UP  OPERAND 
J  »J  -  1 
GO  TO  165 

C  THEH  ?  SU8STATE  ? 


0  «^**i.*******««***********«*«***>.'*«***««***>«**«*  THEH 
40  0  IF(  IARAY1 J  )  NE . 1  248  )  GO  TO  43 


C  THEN  LOGIC 

CALL  SKFSP 

I F <  I  TERM  NE  0  )G0  TO  1020 

IF<  IARAYC J >  NE . 1 100 >  GO  TO  800 

CALL  SKPl 

I F <  I  TERM  NE . 0  >G0  TO  1020 
CALL  NBRTY 
C  SET  UP  NEXT  STATE 
L IHE< 10  )-NBRl 
L INE  < 1 1  )  ■ N8  R2 
L INE( 1 2  )-NBR3 
KK-3 

GO  TO  1010 


C  SUBSTATE  ?  STIMULUS  '? 


430 

I  F <  I  A R A Y ( J  )  HE  .  1 23B  > 
CALL  SKPSP 

GO 

TO 

900 

I F<  I  TERM  ME  0  >G0  TO 

1  020 

43  1 

I F<  I ARAYl J ) . E  Q . 1 24  B  > 

GO 

TO 

300 

B-9 


0  43  0 

0431 

0  43?. 

0433 

0434 

0433 

0436 

0437 

0438 

0439 

0460 

046  1 

0462 

0463 

0464 

0463 

0466 

0467 

0468 

0469 

0470 

047  1 

0472 

0473 

0474 

0473 

0476 

0477 

0  478 

0479 

0480 

048  1 

0482 

0483 

0484 

0483 

0436 

0487 

0488 

0  48  9 

0490 

049  l 

0492 

0493 

0494 

0493 

0496 

0497 

0498 

0499 

0300 

030  1 

0302 

0303 

0304 

0301 

0306 

0307 


I  F<  I  ARAY(  J  )  .  EQ  1  028  >  GO  TO  500 
C  SUBSTATE  LOGIC 

432  IF<  IARAY< J  )  .EQ . 1258  >  GO  TO  453 
C  CAN  BE  WRITTEN  AS  SUBSTATE  OR  SS  SO  C K  IT 
IF<  I  AR  AY  < J) .NE.123B  >G  0  TO  800 
435  CALL  8  KP  1 

IF<  ITERN .  NE  .0  >G0  TO  1020 
CALL  NBRTY 

C  SET  UP  SUBSTATt  NUMBER 

I  F<  NBR2  .  GT  .  30  )G0  TO  8  02 

L  INE( 1 3  )«NBR2 

KK-4 

GO  TO  1010 
C  STIMULUS  LOGIC 
300  CALL  SKPSP 
CALL  NBRTY 
J-J-l 

303  I  PR M <  1  >■  3 

I  PR  M  (  2  )*  I  R 0  (  1  ) 

I  PR  M (  3  > *  I  R 8 (  2  ) 

I PRM<  4  ) « I R 0 < 3  ) 

I  PR  M<  5  >■  I  SN 

CALL  EXEC(9/NAM<  IPRMC  1  ) ,  I P  R  H  • '  2  )  >  IPRMC3  >,  I  P  R  M  (  4  ),  I  PRM(  5  ) ) 

CALL  SKPSP 

KK»3 

GO  TO  1010 

C  INITIALIZE  VARIABLE  LOGIC 

900  I F( I AR AY< J ) . NE . 1 268 >  GO  TO  930 
LINE! I  4  )  ■  1 

LINE!  I  3  )  ■  I  V 

901  CALL  S KP  1 

I F<  ITERM  HE .0  )  GO  TO  1020 
CALL  NBRTY 

I F<  [TERM  HE .0  )  GO  TO  1020 
KV-KV+3 
CALL  SVARA 
J  *J  -  1 

CALL  SKPSP 

I F <  I  TERM  NE  0 )  GO  TO  1020 
IF<  IARAYC J  )  ,NE  .738  >  GO  TO  800 
CALL  SKPSP 

IF<  ITERM . NE . o  >  GO  TO  1020 

Ir<  IARAYC  J  )  EQ  330  >  I V  T  ( K  V -  6  )  *  - 1 

IF(  lARAYl J  )  EQ  .3  58  )J»J  +  1 

I  F<  IARAY(  J  )  .  E  9  338  >J»JM 

CALL  NBRTY 

CALL  SVARA 

I F( N8R1 .  EQ.  1  )  G  0  TO  902 
I F <  IVT(KV-9  >, EQ. -1  >IVT(KV-3)«-NBRt 
GO  TO  903 

90  2  I  F<  IVT(KV-9).EQ.-l  )  l  V  T<  K  V- 2  >  • -N  BR  2 
903  I  V  T  C  KV-9  )  *9 

I  V- I V+9 
KK»6 

GO  TO  1010 

903  IF<IARAY<J>  EQ  34B)  GO  TO  910 
IF<  I ARAYt  J )  EQ  5  38  )J«J+ l 
I F<  I AR  AY  <  J  -  1  )  EQ  53B)  GO  TO  904 


0-10 


0-1 1 


0566 
0567 
0569 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 
0581 
0582 
0583 
0584 
0585 
0596 
0587 
0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
0610 
061  1 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
062  1 
0622 
0623 


KV-KV+3 
CALL  SVARA 
I V« IV+6 
KK-8 

CO  TO  1010 

961  IF<  IARAY<J)N£.73B)GQ  TO  400 
CALL  SKPSP 

I F(  I  TERM , HE ,0  )G0  TO  1020 

I  VT<  KV  )■ 6 

IVTC KV  +  l  )  *  I TY  P  E 

I VT( KV  +  2  >  »0 

I  VT < KV -4 >»I  V 

GO  TO  962 

C  INPUT  FROM  READER  ? 

965  t  F<  I  ARAYC  J  )  .  NE  .  1  22B  >G0  TO  967 
ITYPE-3 
GO  TO  963 

C  OUTPUT  TO  PUNCH  OR  PRINTER  ? 

967  IF<  I  ARAY(  .J  )  NE  .  1208  )G0  TO  800 
C  OUTPUT  TO  PUNCH  ? 

J  *<]■*■  l 

1 F <  l AR  AY  C  J  >  ,NE . 1258  >G  0  TO  969 

ITYPE-4 

GO  TO  963 

C  OUTPUT  T0  PRINTER  ? 

969  I  F<  I  AR  AY(  J  )  .  NE  .  I  24B  >GQ  TO  800 
I  TYPE*1 
GO  TO  963 

790  1  F  <  I  AN  OR . EQ  . 0 >G0  TO  800 

j  *  j  -  2 

GO  TO  (103. 203/303.  103  > , LI NE<  1) 

C  INCORRECT  OPERATOR 

800  CALL  EXECC2/1.  IB8,  12> 

GO  TO  6 

C  OUTSIDE  TABLE 

802  CALL  EXEC<  2 .1,189,14) 

0  TO  6 

C  HO  OCTAL  HUMBER 

804  CALL  EXEC <2, 1.1810,12) 

GO  TO  6 

C  INCORRECT  BINARY  FORMAT 
806  CALL  EXEC ( 2 ,1,1811,14) 

GO  TO  6 

C  CALL  DOOPS  TO  CHANGE  A  SINGLE  STATE 
1000  I  F(  ISN  .EQ  .0  >  GO  TO  6 

C  VAR  TABLE  FLAG  CK ' D  HERE  ALSO  EX  20  AND  DOOPS  IF  NEEDED  FOR  IVAR 
IF<  KV  EQ .  1  )G0  TO  1005 
ICLAS-0 
I  PRM<  l  ) ■ 5 0 
I  PR  M ( 2  ) *  K  V -  1 
I  PR  N<  3  >»IV-  IPRIK  2  > 

CALL  EXEC<  20, 0 ,  1  VT ,  IPRM( 2  )  , J  DUM ,  l DUM , I CLAS  ) 

CALL  EXEC(  9  ,HAM,  IPRIK  1),  I P  RN  (  2  )  ,  I  P  RM  <  3  )  ,  I  CL  A  S  ) 

1005  IFLG-0 
I  C  L  A  S  -  0 
IPRMC  1  >■ 1 
I  PR  M  <  2  )■  I  SH 
I  PR  M  <  3  >»  3  5 


B-  1 2 


0624 

0623 

0626 

0627 

0629 

0629 

0630 

0631 

0632 

0633 

0634 


I  PR  (1  <  4  )-IV 

CALL  EXEC(20«0(LINE/33i  J  DU  M  <  I  DU  M  /  I  CL  PS  > 

CALL  EXE  C<  9,  N  AH.  iPRMl  1  >  /  IP  RM<  2),  IP  RM  <3  >,  I  PR  M<4  >,  I  CL  AS  > 
GO  TO  6 

1010  I F<  1  TERM  EQ  . I  >G0  TO  1000 
I  F<  I  TERM  EQ .2  )G0  TO  7 

GO  TO  <  6  1  1 . 61  1  -  430 , 61  1 .  400 , 903. 90 7 , 961  ,  61  1  )  .  KK 
1020  IFC  ITERM  EQ  2)G0  TO  7 
GO  TO  900 
9999  END 
END* 


0-13 


“SKPl  T  «0  0  00  4 


IS  ON  CR  00  0  02  USING  00002  81. KS  R-0013 


0001 
0002 
0003 
0004 
0003 
0006 
0007 
0006 
0009 
0010 
0011 
0012 
0013 
0014 
0013 
0016 
0017 
0018 
0019 
0020 
002  1 


FTH4,  L 

„  UNTIL  SPACE  OCCURS  THEN  FINDS  NEXT 

C  CHAR  AFTER  THE  SPACE  AND  RETURNS  UITH  CORRECT  PTR  IN  LOC  J 
COMMON  J  >  IARAY<72).  IV  TC  90  > , I  SN,  IV, NBRl 
COMMON  N8R2,NBR3,NBR01> 1REL, I TE RH , KV 
COMMON  LI  ME  (15),  IAFLC(5),INDAY(13) 

10  J  «J  +  1 

IF<  J  .  GT . 72  >  GO  TO  30 
1F<  IARAY( J  )  .EQ  .408  >  GO  TO  20 
IF<  I AR AY ( J  )  .EQ .448  )  GO  TO  40 
GO  TO  10 

20  JaJ-1 

CALL  SKPSP 
RETURN 

30  ITERM-2 

RETURN 

40  I  TERM- 1 

RETURN 
END 
END* 
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SKTNB  T  *’0  0  00  4  IS  ON  CR00002  USING  00002  BLKS  R«0013 


0001 
0092 
0003 
0004 
0003 
0006 
0007 
0008 
0009 
0010 
001  1 
0012 
0013 
0014 
0013 
0016 
00  17 


FTN4,  L 

SUBROUTINE  SKTNB 

C  ROUTINE  SKIPS  ALL  CHARS  UNTIL  NUMBER  IS  REACHED  THEN  RETURNS 
C  WITH  COPRECT  PTR  IN  LOC  J 

CON  HUH  .1,  IARAY(72J»  I  V  T<  9  0  ) ,  I  SN,  I V  ,  NBRl 
C OH HON  N8R2,N0R3,NBRG1,  IREL,  ITERM, KV 
COMMON  L INE( 1 3  ),  1AFLGC  3  )  , I NDAY(  13  > 

10  CALL  SKPSP 

I F <  I  TERM . EQ  .  I  )  RETURN 
I F <  ITERM . EQ .2  >  RETURN 
00  13  K»1 , 1 2 

IFCIARAYCJ)  E  Q  .  (  4  7  +  K  )  )  GO  TO  20 
13  CONTINUE 

GO  TO  10 
20  RETURN 

ENO 
END* 


B-I  5 


*3* 


1 '  -  t  1 1  ,ii 


•SKPSP 

0  00  1 
0002 
0003 
0004 
0  00  5 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 


T-00004  IS  OH  CR00002  USING  00002  BLKS  R-0012 
FTN4  ,  L 

SUBROUTINE  SKPSP 

C  ROUTINE  SKIPS  SPACES  AND  UPDATES  PTR  IN  LQC  J 
C  ARE  COUNTED  THE  FLAG  1TERM  IS  SET  TO  2  IF  A 
C  CHAR  IS  REACHED  THE  FLAG  ITERH  IS  SET  TO  l. 
CON  NON  J,IARAY<72),IVT<90>,ISN,IV,NBR1 
COM  NON  NBR2iNBR3,NBR0  1,  IREL,  ITERH, KV 
COMMON  LINE! 15  ).  IAFLC< 5  )  > INDAYC  15  ) 

10  J-U  +  1 

l  F<  J  .  GT  72  >  GO  TO  30 
I  F<  I  AR  AY  (  J  )  .Ell  .448  >  GO  TO  40 
IF<  IARAYC  J  )  ,EQ  4 OB  )  GO  TO  10 
RETURN 

So  I  TERN-2 

RETURN 

40  ITERN-t 

RETURN 
END 
END* 
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IF  72  CHARS 
TERMINATING 


N8RTY  T  *0  0  00  4  IS  OH  CR00002  USING  00006  8LICS  R*<>053 


i 


000  1 
0002 
0003 
0004 
0003 
0006 
0007 
0008 
000  9 

0  01  c 


001  1 
0012 
0013 
0014 
0013 
0016 
0017 
0018 
001  9 
0020 
0021 
0022 
0023 
0024 
0023 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0033 
0036 
0037 
0038 
0039 
0040 
0041 
0  C  4  2 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
003  1 
0032 
0033 


FT  N4  ,  L 

SUBPOUTINE  NBRTY  ] 

C  ROUTINE  SETS  UP  PROPER  NUMBER  TYPE,D1,02  IN  VOS  NBR1  - NBR2  ,  NBR3  j 

COMMON  J ,  IARAYC 72  )  ,  IVT<  90  )  , I SN,  IV , NBR1 
COMMON  N8R2  N B R3 - N B RO  1 ,  I  RE L ,  I TE RM , KV 
COMMON  LINEC13  ),  IAFLGC3  >,  INDAYC  13 > 

10  DO  15  K*  1  ,10 

IF<  I ARAYC  J  )  . EQ  C 37B  +  K  )  )  GO  TO  50 

13  CONTINUE  j 

C  AC  V  >  ?  < 

! F(  I AR AY < J *  1  )  . EQ . 50  8 >  GO  TO  60  ; 

I  FC  I  APAY<.  J+  1  )  .  EQ  .  52B  )  GO  TO  70  i 

C  VARIABLE  LOG II  ! 

NBR1-2 
NBR3-0 

NBR2-I  ARAYC  J  )-  100B 
CALL  SKPSP 
RETURN 

70  DO  75  1*1,3 

IF<  I ARAYC  1  )  EQ . IAFLGC  I)  >GC  TO  80 
75  CONTINUE 

I  TERM* 1 
RETURN 
80  I * I *3 

NBR1 *3 

NBR2-IN0A YC  1  ) 

NBR3-IN0AYC  I-  1  > 

CALL  SKPi 
RETURN 

30  NBR 1  *  1 
NBR3-0 

N8R2*I ARAYC  J  )-60B 

31  CALL  SKPSP 


I FC  I  TERM  EQ . 1  )  RETURN 
I F<  ITERM . EQ .2  >  RETURN 
DO  32  K*  1  ,  l  0 

I  F<  I  ARAYC  J  )  . EQ . <  47  +  K ) )  GO  TO  54 
32  CONTINUE 

RETURN 

54  HBR2*NBR2+10+(  IARAYCJ  )  -  6  08  ) 

GO  TO  31 

C  AC  V  )  AND  ACC)  LOG  I  C 
60  00901*1,5 

IFC  IARAYC  J  >  £9  .  IAFLGC  I  >  )G0  TO  92 
90  CONTINUE 

I  TERM*  1 
RETURN 
92  1*1*3 

NBR2*I  ND  AYC  I  ) 

■J  =J  ♦  2 

DO  62  K*  1  ,  l  0 

IFC  IARAYC  J  )  EQ  .(  4  7 -HO  )  GO  TO  64 

62  CONTINUE 
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34 

N8R 1 -4 

33 

N8R3  «I  ARAY<  J  )-1008 

36 

CALL  SKPSP 

37 

I  F<  I  TERM . EQ  .  1  >  RETURN 

38 

IF<  ITERM . EQ .2  >  RETURN 

59 

IF<  IARAYl J  )  .  NE .318 ) ITERH-1 

60 

CALL  SKPSP 

61 

RETURN 

62 

64 

NBR1-3 

63 

NBR3*I ARA  Y< J  >-60B 

64 

63 

CALL  SKPSP 

63 

I F(  ITERM . EQ  .  1  >  RETURN 

6  6 

I  F<  ITERM  EQ  .  2  )  RETURN 

67 

DO  66  K=1 , 10 

68 

IF<  I  AR  A  V  T  J  )  .EQ  .  <  47  +  K)  )  GO  TO  69 

69 

66 

CONTINUE 

70 

I  F(,  I  AR  AY  <  J  >  .NE  .518  >  I  TERM*  1 

71 

CALL  SKPSP 

7  2 

RETURN 

73 

69 

NBR3*N8R3*10  +  < IARAYC J  )-6O0  > 

74 

GO  TO  63 

7S 

END 

76 

ENDS 

•  N8R0 

0001 
0002 
0003 
0004 
0003 
0006 
000? 
0008 
0  00  8 
0010 
0011 
0012 
0013 
0014 
0013 
0016 
0017 
0  018 


T-00003  IS  ON  CR00002  USING  00024  BLKS  R-0000 
FTN4  ,  L 

SUBROUTINE  NBRO 

C  CONVERTS  A N  ASCII  NUMBER  TO  AM  OCTAL  VALUE 
CON  HON  J,IARAY<72>,IVT(90>,ISN,IV,NBR1 
COMMON  NBR2,NBR3,NBR01,  IREL,  ITERM, KV 
COMMON  L I NE  <  l  5  > ,  I A FLG < 3  > , I ND A Y<  15  ) 

NBRO  1*0 

10  DO  13  K»1 , 8 

I F<  I ARAY( J ) . EQ .( 47  +  K  )  )  GO  TO  20 
13  CONTINUE 

RETURN 

20  NBR01»NBR01*8  +  < IARAYC  J  )-60B) 

CALL  SKPSP 

I F  < ITERM . EQ . 1 >  RETURN 

IF  <  ITERM .EQ. 2  )  RETURN 

GO  TO  10 

ENO 

END* 
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SVARA  T»00004  IS  OH  CR00002  USIHG  00002  BLKS  R*OOU 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
00  16 


FT  N4  ,  L 

SUBROUTINE  SVARA 

C  ROUTINE  SETS  UR  3  «DS  IN  VAR  TABLE  (IVT)  EQUAL  TO  VALUES 
C  IN  N8R 1 »  NBR  2 ,  AND  HBR3, 

CON  HON  J/  IARAY(72)>  IVT(90)#ISN«  I V , NB  R l 
CON  HON  N  B  R2  /  N  B  R3  <  N  B  RQ  1 .  I  REL ,  I TE RH , KV 
C  OH  HON  LINE(  15  ),  I A  F  LG( 5  ) ,  I  HD  A  Y<  15  ) 

I  VT( KV  )*NBR  1 

KV»KV+1 

I  V T < KV  )»N8R2 

KV-KV+  1 

I  V T < KV  )*N8R  3 

KV-KV+1 

RETURN 

END 

END* 


*  SOS 

T«0«)00  3  IS  ON  CRO0OO2  USING  00004  BLKS  R-0000 

OOO  1 

FT N4  , 

i_ 

0002 

PROGRAM  SDS 

000  3 

COMMON  I  STAB!  1  5,  30  ) ,  I  STFU  4,  3  0  ) ,  MRESP<  3 , 3  0  ) 

0004 

COMMON  IPCNT(4>,ISCB(7,20>,IND,IVAR<2,2  26  > 

0005 

COMMON  I  R  ES  P<  1  2  > ,  I  A  FL  G<  3  ) ,  INDAY  (  13  >,  I V  T 2  0  0  > ,  ILOG<  10) 

0  00  »i 

COMMON  TREQ<  30  >,  ITREQi  2  ,  30  >,  I  TT  OP  C  5  )  ,  I  T  OP  ,  I  N  XT  ,  T  R 

0007 

COMMON  I  NDXR,  I  PRM<  3  >,  IS  T  ,  J  J 

0008 

COMMON  I S VST,  IBUF<  1 80  > 

0009 

DIMENSION  NAM( 3),NAH1(3  ), IPRAMC  5) 

0010 

DATA  NAM/2HT2, 2HXX, 2HX  / 

0011 

DATA  NAH1/2HT1 , 2HXX , 2HX  / 

0012 

CALL  R  HP  A  R<  IPRAM  > 

0013 

I  Ft  I  PR  AM  <  1  ) .LT  .  100  >G0  TO  3 

0014 

I  PRAPK  1  )*  IPRAMt  1  )-  1  00 

0015 

GO  TO  56 

0016 

DO  1  1=115 

0017 

DO  1  J  = 1 , 30 

ooi  a 

1 

I  S  T  A  B<  I  ,  J  ;  =  o 

0019 

DO  2  1=1,4 

0020 

DO  2  J  =1 ,  30 

002  1 

■5 

I  STFLC  I,  J  )=  0 

0022 

DO  5  1=1,3 

0023 

DO  5  .J  =1  ,  30 

0024 

5 

M  R  £  3  P  (  I ,  J  )=  0 

0025 

DO  15  I  a  1  ,  7 

0026 

DO  13  J* 1 , 20 

0027 

15 

I  S C  8  <  l  ,  J  )  =0 

0028 

DO  20  1-1,2 

0029 

DO  20  J*  1  ,226 

0030 

20 

I  V  A  R  C  I  ,  J  )  3  0 

003  1 

DO  23  1-1,12 

0032 

25 

I  RE  S  P<  I  ) -  0 

0033 

DO  30  la  1 , l 3 

0034 

30 

[ M  D  A  Y  (  19*0 

0033 

DO  33  I» 1 , 200 

0036 

35 

I  VT  <  I  ) * 0 

0037 

DO  40  1*1,5 

0038 

40 

I  AFLG(  I  .'  *  0 

0039 

I TOP-O 

0040 

I  NX  T  a  1 

004  1 

TR-0  .  0 

0042 

I  ND  X  R=  0 

0  04  3 

J  J  =  l 

0044 

DO  45  1=1,180 

0045 

45 

I  BU  F (  I  )*  0 

0046 

DO  50  1=1,30 

0047 

50 

T  RE  Q<  I  )-  0  .  0 

0048 

DO  55  1=1,2 

0  04  9 

DO  55  J= 1  •  30 

0050 

5  5 

I  T  R  E  0  <  I ,  J  )  =  0 

005  1 

CALL  NTSK1 

0052 

CALL  NTSK2 

0053 

CALL  NTSK3 

0034 

CALL  NTSK4 

8-21 


0055 
0056 
005? 
0059 
0059 
0  06  0 
006  1 
0062 
006  1 
0064 
0065 
0066 
006? 
0068 
0  06  9 


56 


59 


CALL  NTSK5 
CALL  NTSK6 
CALL  MTSK7 
CALL  E  XE  C  (  6 , 0  ,  l  ) 

CALL  R  MP  A  R<  IPRAM  > 

call  mpnrm 

DO  59  1-1,12 

CALL  EVSNS(  t »  1-1,0, NANI,  IERR) 

I  F<  IERR  EQ  1  )C0  TO  59 
CONTINUE 

CALL  EXEC<9,NAN,  IP  R AN<  1  )  ,  I  PR  AM<  2  )  ,  IPRAH<  3  >,  I  PR  AH  <  4  > ,  I  P  R  A  H<  5  >  ) 
CALL  EXECC  7  > 

CALL  MPNRtl 

END 

END* 
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EX  PR  T-00003  IS  ON  CR00002  USING  00024  BL  KS  R-0000 


000  1 

FTN4 

0002 

SUBROUTINE  EXPR 

0  00  3 

COMMON  I  STAB<  1  5/  30  ) ,  ISTFLt  4,  30),  MRESP<  3 ,30) 

0004 

COMMON  IPCNTC  4  ) ,  I S  C  8  (  7 ,  20)  •  IND,  I  V  A  R  <  2 ,  226  ) 

0005 

COMMON  I  R  E  S  P  <  12),  I  A  F  L  G  (  5  > ,  I N  D  A  Y  <.  15  > ,  I V  T  <  2  00  > ,  ILOGC  : 

0006 

COMMON  TREQ<30),ITREQ<2,  30). ITT  OP  <5>, IT  OP, INXT,TR 

00  07 

COMMON  INDXR,  IPRM<  5  >,  1ST,  J  J 

0  00  8 

COMMON  I SVST,  I BUF<  1 80  > 

0  00  8 

DIMENSION  ISTIM<9),  1  P  R  A  N  (  5  > ,  IVFLG(5),NAM<3) 

0010 

DATA  t  P/2/ 

001  1 

DATA  NAM/2HT3, 2HXX, 2HX  / 

0012 

C 

GET 

PARMS 

0013 

CALL  RMP  AR<  IPRAM  ) 

0014 

DO  10  1-1,5 

0015 

10 

I  PR  M  <  I  )■ I  PR  AM  <  I  ) 

0016 

C 

IPRM(l)  *  l  START  EVENT  LOGIC 

0017 

c 

2  RESPONSE  EVENT  LOGIC 

0018 

c 

3  TIME  EVENT  LOGIC 

0019 

0020 

c 

002  1 

c 

II  QG 

i<  1  >  *  ID  NUMBER 

0022 

c 

f  2  >  ■  EXP  NUMBER 

0023 

c 

(  3 )  ■  SThTE  NUMBER 

0024 

c 

(  4  )  «  RESP  BIT  NUMBER 

0025 

c 

<  5 )  THRU  (10)  *  TIME  AND  YEAR 

0  02  6 

,n 

0027 

GO  TO  (  100, 20  0 , 3  00  )  ,  I PRM<  1  ) 

0028 

c 

START  EVENT  LOGIC 

0029 

100 

I  STSU-  1 

0030 

I  LOG<  2  )»  I  PRMC  2  > 

003  1 

CALL  EXEC<11<IL0G<  5  ),ILOGi  10;) 

0032 

I  LOG<  1  )■  1  0  0  08 

0033 

c 

LOG 

START  OF  EXPERIMENT 

0034 

I  L 0  G <  3  >-<) 

0035 

I  LOG<  4  )*') 

0036 

l  P-  2 

0037 

CALL  LOG  DA 

0038 

ISSFL-0 

0039 

I  LAST-0 

0040 

I  SUPER-0 

004  1 

H3«  IPRMC 4  > 

0042 

105 

IFLG-0 

0  04  3 

I ST-NS 

0044 

IF<  ISTAB<  14  ,  1ST)  G  T  .  0  )C  ALL  INITL 

0041 

I F(  ISSFL . GT  .0  ) GO  TO  1  10 

0046 

CALL  I  MS  C  B<  IND  ) 

004? 

no 

ISUPER-ILAST 

0048 

I  F <  I  SUPER  .  LE.  0  >G0  TO  111 

0049 

I  F  <  I  SC  B<  4  ,  I  3U  P  ER  )  .  N  E  .  I N  D  >  I  SC  B  <  4  ,  I  S  UPER  >  =  I  ND 

0050 

1 1 1 

ILAST-  IND 

005  1 

IF<  ISTAB<  13  ,  I  ST  )  .  EQ  0)QO  TO  120 

0052 

CALL  I N  S  C  8  <  INDSS  ) 
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0033 

0034 

0033 

0036 
0037 
0038 
0038 
0060 
006  1 
0062 
0063 
0064 
0063 
0066 
0067 
0063 
0068 
0  0  7  0 
0  07  1 
0  07  2 
007  3 
0074 
0  071 
0  07  6 
0  077 
0073 
0  07  3 
0  08  0 
008  1 
0  08  2 
0081 
0084 
0083 
0  08  6 
0087 
0088 
0089 
0090 
008  1 
0082 
0093 
0094 
0091 
0096 
0097 
0098 
0099 
0  100 
0  10  1 
0  102 
0  103 
0  104 
0  105 
0  106 
0  107 
0  10  9 
0  109 


C  SET  UP  COUNT  OPERAND  AND  NEXT  STATE 
120  CALL  EVVARC  ISTABC l 0 , I  ST >  ,  NS, 0 > 

I  SC  Be  1  ,  IND.'i-NS 
LOG  A  0-0 

CALL  EVVARi  ISTABC 4,  1ST),  ICT.  0  > 

CALL  EVVARC  I S  T  A8 i 7  ,  1ST),  I  0  P  ,  0  > 

C  RELATIONAL  TRANSACTION  ? 

I F<  I STABi 1 , 1ST > . GT . 3 >GQ  TO  197 
C  IF/  IF  RB,  OR  AFTER  TRANSACTION  ? 

I F<  ISTAB( 1 , 1ST > . NE . 3 >GQ  TO  125 
C  FOLLOWING  TRANSACTION  -  SET  UP  FOL  TABLE  FROM  OPERAND 
ISTFLi 4,  IOP  >- I  NO 
GO  TO  145 

C  IF  OR  AFTER  TRANSACTION  ? 

125  IF<  ISTABC  1 ,  1ST  )  . G£ . 0 >GQ  TO  130 

C  IF  RB  TRANSACTION  -  SET  UP  RESP  AND  MRESP  TABLES 
HRESPi  3  -  1ST  >■  I  MD 
HRESPi  1 .  I  ST  )-  IOP 
HRESPi  2,  1ST  >- l OP 
J  3 1 

DO  126  t  3 1 ,  12 
I TE  3  *  I AMDc  I OP  ,  J  ) 

I F(  I TE3 . GT . 0  )  IRESPC  I  )»- I  ST 

126  J  »I  SHFTi  J  .  I  ) 

GO  TO  141 

C  AFTER  TRANSACTION  ? 

130  IF<  ISTASil/  1ST  ).  NE  .  1  >GQ  TO  140 
C  TF  TRANSACTION  -  SET  UP  RESP  TABLE 
I  RESPi  IOP  >■  IND 
I SCB( 7 / I  HD  >«I OP 
GO  TO  145 

140  IF<  ISTABC  1*  1ST  >.NE  .  2)G0  TO  500 

G  AFTER  TRANSACTION  -  SET  UP  COUNTER  MAKE  TIME  REQUEST 
ChLL  SCHEDc  IC  T  ,  I  NO  ,  INDXR  > 

I SCBi 6 , I  HD  )  »I NDXR 
GO  TO  130 

M3  I  SC  8(6  ,  I  HD) -ICT 
150  I SCBi 2 , I ND >*I S T 

I  SC  B ( 3 / IND)»ISUPER 
I  SCBC4 , I  NO  >»INDSS 
C  LOGICAL  FUNCTIONS  ? 

I  F<  IFLG  EQ.  1  )  G  0  TO  152 

IFC  ISTABi 2,  1ST  )  EQ  .  0 >G0  TO  165 

I FLG ■ l 

152  IFC ISTABC 2, 1ST >. NE . 0 >G0  TO  160 
C  LOGICAL  FUNCTION  -  SET  UP  AND/OR  PTR  AS  +  OR  -AND 
ILAS-I LAST 

IFC  ISTABC  2 /  ISVST)  EQ.  1  )  I  L A S» -  I L AS T 
IFLG-0 

I  SC  B i 5 / IMD>-ILAS 
I  ST  *  I S  CB  i  1>  I1.AST  > 

GO  TO  165 

C  GET  INDEX  FOR  AND/OR  SCB 
160  CALL  IHSCBC  INDX) 
l  ND  A  0*  IN  D  X 

IFC  ISTABi  2  i  1ST  >  F.  Q  1  HNDAQ=-  INDX 
I SCBi 5 . I ND  )=*I NDAO 
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0110 
0  111 
0112 
0113 
0  114 
0115 
0  116 
0117 
0  118 
0  114 
0  120 
0121 
0  122 
0  123 
0  124 
0  123 
0  126 
0  127 
0  129 
0  129 
0  130 
0  131 
0  132 
0  133 
0  134 
0  135 
0  136 
0  137 
0  139 
0  139 
0  14  0 
0  14  1 
0  142 
0  14  3 
0  144 
0  143 
0  146 
0147 
0  143 
0  149 
0  130 
0  13  1 
0132 
0  133 
0  134 
0135 
0136 
0137 
0  139 
0139 
0160 
0  161 
0  162 
0  163 
0  164 
0  163 
0  166 


I  HD  -  III  DM 

C  MOVE  MINOR  STATE  FROM  VARIABLE  TABLE 
I  TEMP-30 

161  I FC  I  ST  ABC  1  -  ITEMP  > . EQ  0 >G0  TO  164 
1  TEMP-  ITEI1P-1 

GO  TO  161 

164  DO  162  1-1-13 

162  ISTAB<  I,  1TEMP >«ISTA8C  I,  1ST  ) 

I  PTR-I  STAB*.  3,  I  TEMP  ) 

DO  163  1-1.9 

163  ISTA8(  I,  ITEMP  >«IVTC  IPTR-1M  > 

I SV ST*  1ST 

I  ST-  ITEMP 
LOGAO-1 

C  LOG  START  OF  STATE 
163  I LO  G  < 1  >-20008 

CALL  EXECC  1  1  ,  ILOGC  3  >,  ILOGC  10  )  > 

I  LQ G ( 3 >• I  ST 
I  LO G<  4  )- 0 
CALL  LOGDA 

IFf  LOG  AO . EQ . 1  > GO  TO  120 
K  =  l 

C  STIMULUS  ? 

I  =2 

CALL  EVVARC  I S  T  FL  < 1  ,  1ST  > ,  I V  D . 0  ) 

IFC  IMD .EQ  ,  0  >G0  TO  1 70 
CALL  0  NO  F  F<  K  ,  I  VD  -  I  > 

C  STATE  HAVE  A  SUBSTATE  ? 

170  IF<  ISTABC  13- 1ST  )  EQ  .0 >G0  TO  193 
! NO- INDSS 
I HDSS-0 
I S3FL-  1 

NS- I  ST  ABC  13- 1ST) 

GO  TO  103 
183  ISSFL-0 

C  START  OF  EXPERIMENT  FLAG  SET  ? 

I F<  I STSU  EQ  i  >G0  TO  193 
GO  TO  400 
193  ISTSU-0 

GO  TO  400 

C  RELATIONAL  TRANSACTION  -  SET  UP  C  OU  NT  ,  OP  ER  A  HD  -  A  11  D  PTR  SCB 
19  7  CALL  EVVARC  ISTABC4,  I3T>  -  INDXI--1  > 

CALL  EVVARC  I  ST  ABC  7  ,  1ST).  IMDX2-  -  1  ) 

ISCBC6  -  I  N  D  >  -  I II D  X  1 
ISCBC7- I  N  D ) -  I N  DX  2 
I VARC  2  - IHDX1  )»IND 
1  VAR <2  ,  IMDX2)»I1ID 
J  F  -  0 

I  VFLGC  1  >«  10 
DO  198  IF-2,3 
I FC  I VFLGC  IF  > . EQ . 0  > J  F«  1 
IFC  I  VFLGC  IF  >  EQ  .  0  >  I  VFLGC  IF  >*  I  HD 
I  FC  0  F  .  EQ  1  )G0  TO  199 
199  CONTINUE 

199  GO  TO  130 

C  RESPONSE  EVENT  LOGIC 

200  I  LOGC  4  >»  I  PRMC  2  > 


B  -  2  5 


01(7 

IF<  IR£SP<  I L  OG  <  4  >  > . L  T  0)G0  TO  210 

01(9 

I  ND-  IRESP< I LOG( 4  > > 

01(9 

I  LOG< 1  >-40008 

0  17  0 

C  LOG 

RESPONSE  EVENT 

0171 

I LO  G  <  3  >-  I  SC  B<  2,  I  HD  > 

0172 

CALL  LOGDA 

0  173 

C  INCORRECT  RESPONSE  ? 

0  174 

IF<  ISC9<  7/ INO  > ,NE,  I  LO  C<  4  >)GQ  TO  500 

0173 

C  DECREMENT  COUNT  -  COUNT  COMPLETE  ? 

0  1  7( 

203 

I  SC  B ( 6  , IHD)«ISCB<6,  I N  D  )  -  1 

0  177 

I  F  v  ISCB(6/IN0)  NE.0)G0  TO  300 

0173 

I FL  rt  G-  1 

0  179 

C  SET 

UP  TO  EXIT 

0  180 

GO  TO  213 

0181 

210 

J  NDX-- !RESP< I L OG <  4 >  > 

0  182 

1 8! TP-MRESPC 1 ,  INDX  > 

0  183 

I  BC  K  *  I  AN  D  <  I  LO  G  <  4  >,  IBIT?  > 

0184 

I  F<  I  BCK  .  EQ  .  0  >C0  TO  212 

0  183 

N  RE  3  P(  1  ,  INDX)«IEOR<  IB  I  TP  ,  I  LOG<  4  > 

0  18b 

212 

I  L  0  G  (  1  >  -  4  0  0  0  B 

0  187 

1 10  G<  3  >-  I  SC  B<  2  >  IND  > 

0  188 

CULL  log  da 

0  19  9 

C  LOG 

MULTIPLE  RESPONSE  EVENT 

0  190 

I  ND  »  NR  ES  P  <  3  , INOX  > 

0  191 

IF<  t1RESP<  1,  INDX)  NE  .0  >G0  TO  500 

0  192 

C  RESET  MULTIPLE  RESPONSE 

0  193 

M  RE  3  P<  1-  I  NO  X>»  MR  ESP  <2,  INDX  > 

0  194 

GO  TO  205 

0  195 

C  EMIT  LOGIC 

0  196 

213 

I  F<  l  SC8<  5  ,  I  MO  )  GE  .  0  >G0  TO  23  1 

0197 

I  3SFG- 1 

0  198 

13= I  SC  BC 3  < I  HO  > 

0  199 

I  4=  I  SC8<  4  ,  I  NO  > 

0200 

I 3«- ISCBC  5,  INO  > 

020  1 

I  F<  I 3  EQ . 0  GO  TO  246 

0202 

I  F  (  ISC  B<  4,  I  3)  EQ  I  MO  >  ISCB(  4.  13  >-I  5 

0203 

246 

IF(  14. EQ . 0)G0  TO  247 

0204 

I  F(  I  S  C  8  <  3<  14).  EQ  .  I  N  D  >  I S  C  8  <  3.  I 4 )*  I  3 

0203 

247 

I  F<  I  SC8<  5  ,  I  3  >  .  NE  .  -  I  ND  >G0  TO  2  48 

0206 

I  SCB<  5  ,  I  5  >  =  0 

0207 

GO  TO  249 

0208 

248 

I  PTR-I 5 

0209 

24  1 

IF<  -  I3C8C 5,  IPTR >  LT  IPTR >GQ  TO  242 

0210 

IPTR*-  IS  C  B(  5,  IPTR  > 

0211 

GO  TO  241 

0212 

242 

I  F<  -  I  SCB (  5  ,  IPTR  >  EQ  I  NO  > I SCBC  3,  IP  TR  >  =  I SCB 

0213 

24  9 

I  F(  I  STABC  1  ,  ISCB< 2,  I  HO  > >  EQ  .  3 >G0  TO  232 

0214 

GO  TO  220 

0213 

231 

I  SSFG-0 

0216 

NS-0 

0217 

232 

ISVSS-ISCBC 4,  IND  > 

0218 

220 

GO  TO  <221, 222,223, 216, 216,224), IFLAG 

0219 

C  EXIT  RESPONSE 

0220 

221 

I  F<  I  RESP<  ILOG<  4 > > . LT  0 >G0  TO  208 

022  1 

I  RESP<  ILOGC  4  >  >  -0 

022  2 

GO  TO  224 

0223 

208 

I 3-- IRESP<  I LOG<  4  >  > 

0224 

00  209  1-1,3 

B-26 
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0225 

209 

HRESPC  I, IS>-0 

0226 

IRESPC  I  L  0  G  (  4  )  )  *0 

0227 

GO  TO  224 

0229 

C  EXIT 

FOLLOWING 

0229 

222 

I  ST  -  ISC8< 2,  INO  ) 

0230 

ISTFLC 4 /  ISVST  )-0 

0231 

GO  TO  224 

0232 

C  EXIT 

AFTER 

0233 

223 

I  TREQv  2,  I  SC  B<  6  /  I  ND  >  >*-1 

0234 

I  SC  B ( 6 / I  MO  >  *0 

0233 

GO  TO  224 

0236 

216 

I F(  IFLAG . E8 . 3  )G0  TO  224 

0237 

I  VA  R  <  I  SC B (  6  <  1  N D  )  j  2  >■<> 

0238 

224 

ISVST-  I S  C  B<  2>  INO  ) 

0239 

I  3  V  A  0*  ISCBC  3,  INO  > 

0240 

I F <  ISSFG  NE  .0  )G0  TO  223 

0241 

NS-  I  SC8(  1  ,  I  NO  ) 

0242 

223 

IS4-ISTFLC4, ISVST) 

0243 

IF<  I  S4  .  EQ  .  0  >GQ  TO  2  30 

0244 

ISC8<6,IS4)»ISC8<6,  IS  '  >  -  1 

0243 

I  F <  I  $Cb<  6  ,  I  S4  )  .  NE  .  0  )G 0  TO 

23  0 

0246 

I  MO-  I S  4 

0247 

IFLG-6 

0248 

IFLAG-2 

0249 

GO  TO  215 

0250 

230 

ISSFG- l 

0251 

K  -  ') 

0  23  2 

I  -2 

0233 

CALL  EVVAR(  ISTFU1  -  ISVST  ). 

I U  0 , 0  > 

0234 

I  F(  I  UO  .  E Q  .  0  )G 0  TO  235 

0233 

CALL  0  NO  F  F<  K »  I  Wl  0  /  I  ) 

0236 

233 

I F  <  IFLG. EQ. 7  )  G  0  TO  236 

0237 

TLAST-ISCBC  3,  INO  ) 

0238 

I  F  <  IFLG.  EQ.  6HFLG-7 

0239 

236 

I  SC B ( 2  ^  I  H 0 ) - 0 

0260 

I SC8( 3  < I N 0  )  -0 

026  1 

I SCB  < 7/ I  NO  )-0 

0262 

I F  <  ISVST  GE.23)ISTA8<  1 ,  ISVST)- 0 

0263 

CALL  EXEC<  1  1 ,  ILOG(  3  >,  ILOGC 

10  )  ) 

0264 

I  LOG<  1  >-30o0B, 

0263 

C  LOG 

END  OF  STATE 

0266 

I  LOG<  3  )-  I  $''3T 

0267 

I  L  0  G  (.  4  > »  0 

0268 

CALL  LOCDA 

0269 

C  ANO/QR  STATE  TO  CLEAR  ? 

0270 

I F (  I SV AO . LE .0  ) GO  TO  240 

0271 

IAOFG-1 

0272 

I  NO-  ISVAO 

0273 

GO  TO  235 

0274 

C  SUBSTATE  TO  CLEAR  ? 

0273 

240 

I  F <  I SVSS  EQ .0  )G0  TO  2  45 

0276 

I F  <  I  SC  B (  2 j  ISVSS)  EQ  0  AND 

IFLG . EQ . 3 )G0  tq  245 

0277 

IND-  ISVSS 

0278 

GO  TO  233 

0279 

C  HEXT 

STATE  TO  INSTALL  ’ 

B-27 
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0280 

243 

I  F<  NS  HE  0  )G0  TO  105 

0  281 

I F<  I  SC  BC  3  <  IND  )  .HE.  0  ) l FL  G  * 3 

0282 

l  SS-ISCEK  3,  INO  > 

0283 

I  F (  I  SC  2> ISS  )  NE. 0  >G0  TO 

400 

0284 

'3  END 

OF  EXPERIMENT  ? 

0283 

CALL  EX£C<  lli  ILOG<  3  ><  ILQG(  10  )  ) 

028b 

CALL  £X£C< 12, N AM , 4 , 1,-100> 

0287 

URITEC  1,  250  )  I  L  OG  c  2  ) 

0288 

250 

FOR K AT< *  ENO  OF  EXP .  “ -  16 ./  ) 

0288 

ILOG<  1  )  •  S  0  0  0  8 

0290 

C  LOG 

END  OF  EXPERIMENT 

0291 

I  LOGO  )«0 

0292 

IL0G(4  >-0 

0293 

CALL  LOGDA 

0294 

GO  TO  500 

0293 

C  SUB  ST  AT  E  CLEAR  LOGIC 

0296 

25  3 

I  ST*  ISCBC 2,  IND  > 

0297 

I F C  1ST  HE  0  >GQ  TO  252 

0298 

I F (  t  AOFG  EQ . 1 ) GO  TO  251 

0299 

GO  TO  245 

0300 

25  1 

I  AOFG-O 

030  1 

GO  TO  240 

0302 

C  RELATIONAL  TRANSACTION  ? 

0303 

252 

I  F<  I  ST  AB  <  1.  1ST  >.  LE  .  3)G0  TO 

260 

0304 

I  F  <  I  SC  8<  7  ,  INO  >  LT.  0  )G0  TO 

256 

0303 

I  VARC I SCBC  7 / IND ) >2 >-0 

0  30  6 

25  6 

I  FLAG-4 

0307 

GO  TO  220 

0308 

26  0 

I  Ft'  I  STASC  1  ,  1ST  >  .  LT  ,  0  >G0  TO 

263 

0309 

GO  TO  <  2  6  1 , 26  2, 2  20  > , I STAB< 

1  .  1ST 

0310 

C  RESPONSE  EVENT 

0311 

261 

CALL  EVVAR(  ISTAB(7 ,  1ST)  ,  ILOG( 4) 

0312 

I  FLAG-  1 

0  313 

GO  TO  220 

0314 

C  AFTER  EVENT 

0313 

262 

IFLAG-3 

0  316 

GO  TO  220 

0317 

C  MULTIPLE  RESPONSE 

0318 

26  3 

I  BP  =  ISTABC I  ST , 8  ) 

0319 

I  MASK-  1 

0320 

DO  2  64  I-1.-12 

032  1 

ICK-  IANDC  IBP,  IMASK  ) 

0322 

IFC  I  CK  .EQ  .  1  )IMR-IRESP<  I  > 

0323 

I  F<  I  CK  .EQ  .  1  )  I  R  ES  PC  I  >*0 

0324 

264 

IBP-ISHFTC  I8P--1  ) 

0323 

M RE S PC  IilR  .  3  ) - 0 

0326 

IFLAG-6 

0327 

GO  TO  220 

0328 

C  TIME 

EVENT  LOGIC 

0329 

300 

CALL  EXECC  1  1  ,  I  LOGC  3  >,  ILOGC 

10  >  > 

0330 

IHD-IPRMc 2) 

0331 

IFLAG-3 

0332 

GO  TO  215 

0333 

C  RELATIONAL  EVENT  LOGIC 

0334 

400 

IFC  IVFLGC  1  )  HE  .  10)G0  TO  500 

0333 

40  1 

IFC  IVFLGC  IP  > . EQ . 0 )G0  TO  40  2 
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0336 

IP-IP+1 

0337 

I ND  X  « I VFL  G(  IP-1 ) 

0338 

1ST  -  ISCB<  2. INOX  > 

0339 

ITYP£»ISTAB<  l ,  I S  T  > -  3 

0340 

403 

I  F<  I  SC  8<  7,  INOX  ). 

LT . 0 )G0  TO  406 

0341 

I  VB  " I V  AR (  1 ,  ISCB< 

7,  INOX  )  ^ 

0342 

GO  TO  407 

0343 

402 

I  F<  I  P  .  G£  .  5  )G0  TO 

403 

0344 

IP-IP+1 

0343 

GO  TO  401 

0346 

403 

IP-2 

0347 

GO  TO  300 

0  34  8 

406 

IVB--ISC8C  7, INOX  ) 

0349 

407 

I  V A  -  I V  AR  <  1  ,  ISC8( 6 ,  INDX  )  ) 

0350 

GO  T0<  41 0 , 413, 42  0, 4  25 ,430, 43  3  >, I  TYPE 

033  1 

410 

I  F(  IVA.EQ . I V  B ) GO 

TO  450 

0332 

GO  TO  473 

0333 

415 

IF<  I  VA .LT  .  IVB  )  GO 

TO  450 

0354 

GO  TO  475 

0331 

420 

I  F<  I VA . G V .  I VB  >GQ 

TO  450 

0  35  6 

GO  TO  475 

0337 

423 

I F<  I VA  .  LE  I VB  )G0 

TO  450 

0338 

GO  TO  475 

0  319 

4  3  0 

r  F(  I VA . GE  .  I VB ) GO 

TO  450 

0360 

CO  TO  475 

036  1 

433 

I F(  I VA  .HE  .  I VB  )  GO 

TO  4  50 

0362 

GO  TO  475 

0363 

43  0 

I F <  ISCB<  6<  IN OX  > . 

GT  .  0)IVAR(  2  -  TSCBC  6,  INDX  >  > -0 

0364 

IF<  ISCB<  7,  INOX  ). 

Gf  .  0  )  I V  AR<  2 «  I  SC  B<  7  ,  I  NO  X  >  >  ■»<) 

0363 

INO-  INDX 

0366 

I  FLAG-6 

0367 

GO  TO  215 

0368 

471 

I  F<  I P  .  LT .  6  )GQ  TO 

400 

0369 

IF<  IP  GE.  6  ^  I P  3  2 

0370 

30  0 

CALL  EXEC <6, 0,2) 

0  37  1 

RETURN 

0372 

END 

0373 

ENO* 
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QNOFF  T*00003  IS  ON  CR00002  USING  00002  BLKS  R*0000 


0  00  1 
0002 
0003 
0004 
0003 
0  00  6 
0  00  7 
0008 
0  00  4 
0010 
0011 
0012 
0013 
0014 
0013 
0016 
0017 
0013 
0019 
0020 


FTN*  ,  L 

SUBROUTINE  ON 0 FF < K  ,  I U 0 , J  > 

COM  HON  I  S  TA  B<  15,  30  > ,  I  STFU  4,  30  >  , HRESP(  3 , 30  > 

C  OH  HON  IPCNT<  4  ),  ISCl'(  7, 2  0  ) ,  I  NO,  IVAR<  2,  2  26  > 

C  OH  HON  IRESP<  12  )  .  I  AFLG<  3  ><  INDftY<  1  3  >.  IVT<200  > ,  ILOG(  10  > 
C OH  HON  TREOI 30  >,  IT  RECK  2, 30  ),  ITTOPC  5  >, I  TOP , IMXT, TR 
C  OH  HON  INOXR,  IPRH<  3  >,  IS  >,  JO 
COHHON  ISVST,  IBUF<  130  > 

d:hensiom  i uo <  i  > 

t  HU  M  -  i 
ICHAN-4 

I  F(  J  .  CE  2  HCHAN-2 

IF<  K  EQ.  0  >GQ  VO  100 

CALL  DOH  I  HUH  ,  I  CHAN  ,  I  WD  ,  IWD,  I  ERR  ) 

GO  TO  200 

100  I CGMP«  IEORC  1  777776  ,  IWD  ) 

CALL  DOL<  I  HUH  .  I C  HA  N  .  I  CO  H  P ,  IWD  ,  I  ERR  ) 

200  RETURN 
END 
END* 


B-30 


. . i  rtmf i  in  ii 


IN  SC  8  r»000  03  IS  ON  CR00002  OSIN  r,  0OOO1  BLKS  R»00o0 


OO0  1 
0002 
0  00  3 
0004 
0005 
0  00  6 
000  7 
^  00  8 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0  0  16 


FT N4  ,  t. 

SUBROUTINE  INSCBCRTN) 

CON  NON  I  STAB<  1  3 ,  30  >  ,  I  STFU  4 , 3  0  >  ,  M  R  ES PC  3 , 30  > 

COMMON  IPCNT(  4  >,  ISCBC  7.  20)-  I  NO,  IVrtRC  2,  2  Z6  > 

COMMON  I  RES  PC  1  2  )  ,  I  AFLC(  5  >,  INDAYt.  !  5  ),  IV  TC  2  00  >  ,  ILOGC 1 O  > 
COMMON  T  R  ES  <  3  0  > ,  ITREQC2, 30  ),  1 TTOPC  5  )  , I  TOP ,  I NXT , TR 
COMMON  INDXR,  IPRMC  5  >,  1ST,  J  J 
COMMON  ISVST,  I8UF<  1 80  ) 

00  lOO  1*1,20 
IF(  ISC8C 2,  I  >. EQ. 0)IR7N=I 
I  F<  I  SC8C  2  ,  r  ) .  Eli  0  ) C 0  TO  20 0 
100  CGNTINUE 
20O  I  S  C  8  <  2  , I  )  3 1 

RETURN 
END 
E  NO  4 
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•6Q0PS  T*00003  IS  ON  CR  00  0  02  USING  00024  BLKS  R*0000 


0001 

FTN4  ,  L 

0002 

SUBROUTINE  DOOPS 

0003 

COMMON  ISTAB(15,30),ISTFL(4,30),MRESP<3,30) 

0004 

COMMON  IP  CNR  4  >.  ISCB<  7,  20)  ,  I  NO,  IVAR<  2,  226  > 

0005 

COMMON  IRE5PI  12),  IAFLGI  5  >,  INDAYC  15  >,  IVTC200  >,  IL0G<  10) 

0006 

COMMON  TREQ<  30  >, ITREQ12, 30  >, ITTOP( 5), I  TOP, IN  XT. TR 

0007 

COMMON  IHDXR.  IPRH<  5  >,  1ST,  J  J 

0003 

COMMON  ISVST,  I BUF<  1 80  > 

0003 

DIMENSION  IREC<90>»  IPRAH<  5  ) 

0010 

CNLl  RHPhRI  IPRAH  > 

001  1 

I F<  IPRAHt  1  )  .  EO  .  3  >G0  TO  50 

0012 

I  F(  I  PR  AM<  1  >  .EQ  .  5  0  )  C  0  TO  60 

0  013 

CALL  EXEC<21. IPRAH(S). IRECi35) 

0014 

DO  30  1-1,15 

0015 

3o 

ISThB<  I.  1  PR  AM  < 2)  >»IREC<  I  > 

0016 

DO  31  1-16, 20 

0017 

31 

I  AFLG1'  I-15)«IREC<  I  ) 

0018 

DO  32  1*21,35 

0013 

32 

I  ND  A  V (  1-20  >  *  I R  EC ( I  ) 

0020 

GO  TO  80 

002  1 

50 

DO  55  1-1,3 

0022 

55 

I S  T  F  L(  I,  1PRAM<  5)  >*  I  PR  AM C  I+l  ) 

0  02  3 

GO  TO  80 

0024 

60 

CALL  EXECC21,  I  PR  AM <  4  ) ,  I R EC , I P RA M<  2  >  ) 

0023 

DO  70  1*1 ,  I  PR  AM<  2) 

0026 

70 

I  VT  <  IPRAMC  3  )♦(  I-  l  >  >  *  I REC  <  I  ) 

0027 

80 

CALL  EXEC( 6  > 

0028 

RETURN 

0029 

END 

0  03  0 

END  4 
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EVVAR  T*00003  IS  OH  CR  00  002  USING  00003  BLKS  R»0000 


0001 
0002 
0003 
0004 
0003 
0006 
0007 
0  C  0  8 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
001  7 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0023 
0026 
0027 
0028 
0029 
0030 
003  1 
0032 
0033 
0034 
0035 
0  03  >1 


FTN4  ,  L 

SUBROUTINE  EV  V  AR  C I  A  DR  , I  R  TN  , IFLG  ) 

COMMON  I  S  TA  8<  1  3  -  30  )  ,  I  S  T  F  LC  4  ,  3  0  ) ,  M  R  ES  PC  3 , 3  0  ) 

COMMON  I  P  CH  T<  4  >  »  ISCBC7,20),IND,  I  V  ARC  2,  2  26  > 

COMMON  I  RES  PC  1  2  )  -  I  A  FL  GC  3  > ,  INDAYC  13  >,  I V  T  <  2  00  )  ,  I  LO  G  (  l  0  ) 

COMMON  TR£Q<  30  >.  ITREQC  2 , 30  >,  I  TTOPC  3 > , I TOF , I NXT , TR 
C  Oh  H  OH  INDXR,  IPRMC  5  >,  1ST,  J  J 
COMMON  ISVST,  IBUF<  180  > 

DIMENSION  I  ADR (3) 

I  F<  IADRC  1  >  .  £Q  .  0  )  IRTN*0 
IF<  IADRC  1  ) .  EQ  .  0  )  GO  TO  5oO 
I F <  IFLG  LT  0  > G 0  TO  90 
GO  TO  C1,2.3,4>,IADRC1> 

C  GET  CONSTANT  VALUE  FROM  WORD  2 

1  IRTN«IA0R<2> 

GO  TO  500 

C  USING  PTR  IN  WORD  2  GET  VALUE  FROM  VARIABLE  TABLE 

2  IRTN*IVAR< 1 , I  ADR <  2  )  > 

GO  TO  500 

C  USING  PTRS  IN  WORDS  2  AND  3  GET  VALUE  FROM  VARIABLE  TABLE 

3  INDX-t AOR< 2  )- 1  +  1 AORC 3  ) 

IRTN-IVARC 1 , INDX  ) 

GO  TO  500 

4  INDX«I  VAR<  I  ADR<  3  ) )+  IAi)R<  2)-l 
IRTN*IVARC l , INDX  ) 

GO  TO  500 

90  GO  TO  <  100,  100,300,  400  ),  IADRC  1  ) 

100  IRTN*IA0RC2  ) 

GO  TO  300 

300  IRTH*I ADRC 2 >+ IADRC 3  )-  1 
GO  TO  300 

400  INDXalVARC 1 , IA0RC3  )  ) 

IRTN-IADRC2  )+  INDX-1 
300  RETURN 
END 
E  ND  $ 
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FTN4  ,  L 

SUBROUTINE  INITL 

COMMON  I  STABC  15,  30  >,  I  STFLC  4, 30),  M  RES  PC  3,30) 

COMMON  IPCNTC4),ISC8C7,20),IND,IVARC  2,2  26  > 

COMMON  I  RES  PC  12) ,  I  AFLGC  5  >,  INDAYC  1  5  >,  IVTC 200  ) ,  ILQG<  10  ) 
COMMON  TREQC 30 ), ITREQC2,  30  ), ITTOPC  5), I  TOP, IN  XT , TR 
COMMON  INDXR.  IPRHC  5  ),  1ST,  J  J 
COMMON  I  S  VS  T »  IBUFC  180  > 

DIMENSION  I  P A  R  MC  5  > ,  NA  KC  3  > 

DATA  NAM/2HT7, 2HXX , 2HX  / 

I  SU  N  *0 

IFC  ISTABC 14, 1ST)  .NE  .  1  >G0  TO  60 
I ND  X ■ I  ST  A  B<  15,  1ST) 

40  CALL  £VVAR(  IVTC INOX  +  3  ),  IEl2,-l  ) 

I  LG  TH=  I V  T  <  INDX  ) 

CALL  EV^ARC  IVTCIN0a+6),IRTN,0> 

ISUM*ISUM+IRTN 

IFf  I  LG TH  NE  .  12  >G0  TO  50 

CALL  EVVARC  IVTC INDX +9  ),  IRTN, 0  > 

ISUt1»ISUM+IRTN 
50  I  VARC  1  ,  I  EG  >*ISUM 

IF(  IVTC INDX+2  )  EQ. o  )G0  TO  500 
I  HD  X ■ I VT<  l  N  0  X  +  2  ) 

ISUtl-0 
GO  TO  40 

60  IFC  ISTA8C  14 , 1ST) .LT  .  2 >G0  TO  500 
IFC  ISTABC  14 , 1ST)  .GT  .  5  )G0  TO  500 
IPARMC  1 )=>  ISTABC 1 4,  1ST  )-  1 
IPARMC  2)*ISTA8( 13,  1ST  > 

IPARMC  3  )»0 

IFC  IVTC  ISTABC  15,  1ST  >+  3  >  .  EQ  .5  )IPARMC  3  )*  1 
CALL  EXEC  C  24,  MAM  IPARMC  1  > ,  I P  A  RM  C  2  >  ,  I  P  A  R  MC  3  )  > 

500  RETURN 
END 
E  NO  $ 


<sj  ro  ♦  w>  ^  ^ 


T»00003  IS  OH  CR  00  0  02  USING  00002  BLKS  R-0000 


1  FT N4  ,  L 

2  SUBROUTINE  RESP 

3  COMMON  I  STABC  1  3,  30  ) ,  I  STFL<  4,  30  > ,  MRESP<  3 , 30  ) 

4  COMMON  IPCNT<  4  >.  ISCBC  7,  20  > ,  I  ND,  IVAR(  2, 226  > 

3  COMMON  IRESPC  12),  IftFLGI  3  >,  INDAY<  13  >,  IVTC200  >,  ILQGUO) 

6  COMMON  TREQ< 30  ).  ITREO< 2, 30  >,  ITTOPC 5), ITOP, INXT, TR 

7  COMMON  INDXR,  IPRM<  3  >,  1ST,  JJ 

8  COMMON  I S  VS  T i  I8UF<  180  ) 

8  DIMENSION  N  AH  <  3  )  ,  I  P  RA  N(  5  > 

0  DATA  NAM/2HT2,  2  H  X  X  , 2  H  X  / 

1  CALL  RMP AR(  IPR AM  ) 

CALL  EXEC<  l  1,  ILOG<  5  >,  ILOGC  10  >  > 

IPRAMC  2  )»  IPRAMC  3  t 
I  PR  A  M<  1  )»2 

CALL  EXEC  (2  4,  NAM,  IPRAM<  1  >,  IP  RAH  (2  )  > 

CALL  EXECC  6  ) 

RETURN 
8  END 

8  ENO* 


B-3S 


LOGG  T ■ 0  0  O  0  3  IS  ON  CR00002  USING  00002  BLKS  R»0000 


000  1 
0002 
0003 
0004 
0003 
0006 
0007 
OOOS 
0009 
ooto 
001  1 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 


FTN4  ,  L 

SUBROUTINE  LOGG 

COMMON  ISTA8<13-30),ISTFL<4-30>,NRESP<3-30> 

COMMON  I  P  CN  T<  4  )  -  I S  C  B(  7>  2  0)/  1  ND  -  IVARC2-226  ) 

COMMON  IRESP(  12),  I  AFLG<  3  >,  INDftY<  1  3  >,  IVTC  200  > -  ILOGC  10) 
COMMON  TREQ<  30  ).  ITREQ( 2, 30  ),  I TTOP<  5  > , I  TOP - I NXT, TR 
COMMON  INOXR-  I?RM(  5  >,  1ST,  J  J 
COMMON  ISVST, IBUF<  180  ) 

DIMENSION  I  PR  AM<  5  > 

CALL  R MP AR<  IPRAM  > 

C  IPRAM(l>  ■  STARTING  ADDRESS 
C  IP R  AM <  2  )  -  LENGTH 
C  IPR AM<  3 )  -  5  IF  END  OF  EXPERIMENT 

CALL  EXEC<2- 10B, IBUF<  IPRAM< 1 >  >, IPRAMC2  )  > 

I  F(  IPRAH<  3)  .NE  .3  )G0  TO  10 
C  WRITE  END  OF  FILE  AND  REWIND  TAPE 
CttLL  EXEC<  3,  1  1  OB  > 

CALL  EXEC<  3-4108  > 

10  CALL  E XE C < 6-0,2) 

RETURN 

END 

END* 


B -36 


*LOGDA  r *00 00 3  rs  ON  CR00002  USING  00006  8LKS  R-0000 


0001 

FTN4 

L 

0002 

SUBROUTINE  LQGDA 

0003 

COMMGN  ISTAB<  13,  30  ) ,  ISTFLC  4,  30  >,  MRESP<  3,30  > 

0004 

CON  NON  I  P  CN  T(  4  > ,  ISCBC  7,20),IND,IVAR<  2,2  26  > 

0003 

CON  HON  IR£SP<  12),  IAFLGC  3  >,  INDAV<  13  >,  IVT<200  >,  ILOG<  10) 

0  00  6 

CON  NON  T R Efl <  30  >,  I  T  R  E8  (  2  ,  30  ),  ITT0PC3),  ITQP,  I  N  XT  ,TR 

0  00  7 

COMMON  IMDXR,  t  PRH(  3  >,  1ST,  J  J 

0008 

CONNON  I  SVST,  I  BUF(  1  80  > 

0  00  8 

DIMENSION  NAM<  3) 

0010 

DATA  NAM/2HT3, 2HXX, 2HX  7 

001  1 

ICK-ILOGC  1  V1  000B 

0012 

K  *  1 

0013 

DO  5  I  *J  J  ,  J  J  +  8 

0014 

I  BU F (  I  )■  1 10  G<  K ) 

0013 

3 

K  *K  ♦  1 

0016 

J  J  *  J  J  +  9 

001  7 

I F( J  J . £Q  .  181  ) G 0  TO  10 

0018 

I  F(  J  J  .  EQ  .  91  )GQ  TO  20 

0019 

GO  TO  30 

0020 

10 

I  PR  N  <  1  )*  9  1 

002  1 

I PRM  <  2  )»9  0 

0022 

I  PR  H  <  3  )*  I  CK 

0023 

I  F<  ICK .£0 .5  )G0  TO  40 

0024 

J  J  3  1 

0023 

GO  TO  41 

0026 

20 

I  PRM  < 1  )*1 

0027 

I  PR  M  <  2  )*90 

0029 

I  PR  M  (  3  )•>  I  CK 

0029 

I  F<  I  CK  .  £0  .  3  )G0  Tij  3  1 

0030 

GO  TO  43 

0031 

30 

I  F<  I  CK  N£.3)G0  TO  30 

0032 

IF(  J  J  .  GT  .  91  )G0  TO  40 

0033 

31 

I  PRM< 1  >*1 

0034 

[  PRM<  2  )»J  J- 1 

0033 

I  PR  M  <  3  ) * 5 

0036 

GO  TO  45 

0037 

40 

IPRMC  1  )  ■ 9  1 

0039 

IPRM(2  )»J J-91 

0039 

I  PR  M  <  3  >■  5 

0040 

43 

CALL  EXEC ( 2  4,  HAM ,  I PRM <  1  ) ,  I  PR  H  <  2  )  I PRMC  3  )  ) 

0041 

30 

RETURN 

0042 

END 

0043 

END* 
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FTN4  -  L 

SUBROUTINE  RDWRT 

COHN  OH  ISTAB<  15, 30  >, I$TFL<  4. 3  0>,HRESP<  3,30) 

COM  HON  IPCNT<  4  >,  I  SCSI  7,  20  >,  I  NO,  IV  ARC  2,  226  > 

COMMON  IRESP<  12) ,  IAFLG<  5  >,  INDAYC  1  5  >,  IVTC200  ) ,  I  LOGO  10  ) 
COMMON  TREQ<30),ITREQ<2,30),ITTQPCS),IT0P,INXT,TR 
COMMON  INDXR,  !P*H<  5  >,  1ST,  J  J 
COMMON  I S VS T <  IBUF< i90  > 

DIMENSION  N  AM  1(3).  I  DC  BK144),  LI  HE  AC  36  > 

DIMENSION  IDCB< 144  >,NAHC  3), LI  NEC  3  6  >,  IPRAMC5  > 

DATA  NAM72HQP. 2HIN, 2H  / 

DATA  NAM1/2HQP,2HQU,2HT  / ,  IOP 70 / ,  I  OPN/ 0/ 

CALL  R MP AR(  IPRAM  > 

I  FC  I  PR  AHC 1  >  .EQ  .  1  >G0  TO  30 
5  IFC  IOP  .EQ  .  1  >G0  TO  10 

I  OP  -  1 

CALL  0  PE  N  C  I  DC  8 / IERR, NAM  ) 

10  ICLAS-0 

CALL  REAOF<  IDCB, IERR,  LINE. 36  ) 

I  FC  L  IN E<  1  > . EQ  .  2HEH  )  I0P-0 

IFC L INE<  1  )  . EQ . 2HEN  1CALL  CL  OS E (I  DC B , I ER R  ) 

CALl  EXEC<20,0,LINE,36,JDUM,IDUM,ICLAS> 

I  PR  A  M<  2  )  *  I C  L  A  S 
CALL  PRTNC IPRAM) 

50  IF<  I  ERR. LT. OOWRITEC 1 ,  10  0  )IERR 

100  FCRtlATCRDWRT  ERROR",  18) 

CALL  E  XE  C  <  6 , 0  ,  1 ) 

CALL  RMPARC  IPRAM  ) 

T.F<  I  PR  AM <  1  )  EQ  .  1  )G0  TO  3  0 
IF<  I  PR AM<  1 ) . EQ  .  0  )G0  TO  5 
IF<  1  PR  AM  C 1 ) . EQ  .3  >G0  TO  20 
GO  TO  115 

20  CALL  0  PE NC I OCB , I  ERR  ,  N AM > 

CALL  OPEN< IDwBl,  IERR, NAM1  ) 

21  CALL  READFC  ICCBl , IERR, LINE, 36 > 

I  F<  IERR  .  EQ  .  -12  >1  EMD»1 

IF<  IERR . EQ. -12  >GQ  TO  23 
CALL  MRITFC IDCB, IERR, LINE, 36 > 

1 F(  I  END . NE.  1 ) G  0  TO 
23  CALL  CLOSEC  IDCB1 , IERR  > 

CALL  CLOSE<  IDCB,  IERR  > 

GO  TO  115 

30  IF<  I  OP  N  EQ .  1 ) G  0  TO  40 
IOPM-l 

I F (  I  PR  AM ( 2)  EQ . I  )G0  TO  35 
CALl  OPEN<  IDCB  1 ,  IERR, NAM  1  ) 

GO  TO  40 

35  CALL  OPENC IDCB  1 ,  IERR, NAM  1  ) 

37  CALL  POSNT(  IDCB1 , IEKR, 1  ) 

IF(  IERR . EQ. 0  )  G  0  TO  37 
CALL  POSNT<  IDCBt , I  ERR , -2  ) 

40  CALL  E  XEC ( 2  1  >  IPRAM  (3), LINE  A,  36) 

CALL  WRI TF<  IDCB1  , IERR , L I NEA,  38 ) 

I F < L INEA<  1 )  EQ .2 HEN  >I0PN«0 

IFC  LINEAC  1  )  .  EQ  .  2 HEN  )CALL  CLOSEC  IDCBl  ,  IERR  > 

GO  TO  50 

115  I FC  IERR . LT  0)WRITE(  1 , 100  >IERR 
CALL  EXEC<  6  ) 

END 

END*  B-38 
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FT  N4  < L 

C  THIS  SUBROUTINE  WILL  BE  USED  TO  SCHEDULE  TASK  EXPR  WHEN 
C  DESIRED  TIME  HAS  ELASPSED.  TASK  EXPR  WILL  BE  INSTALLED 
C  IN  CORE  8Y  NTASK  AS  T2XXX  . 

SUBROUTINE  TSCHD 

COMMON  ISTA8<15<30)<1STFL(4,30><MRESP<3<30> 

COMMON  IPCNTC4).  ISC8<  7  <  2  0  )  <  I  N  D  <  IVAR(2<226> 

COMMON  IRESP< 12>, IAFLG<  3  >.  INDAYC 15  ),  IVTC200  >, ILOG< 10) 
COMMON  TREQUO  >,  ITREQ<2< 30  ),  I  TTOP<  5) ,  I  TOP  ,  IHXT<  TR 
COMMON  I  NDXR  >  I  PR  He  5  > <  IS T  <  <J  J 
COMMON  ISVST,  I3UFC  180  ) 

DIMENSION  H AN< 3) 

DATA  NAM/2HT2, 2H  XX  < 2HX  / 

C  PICK  UP  PARAMETER  FROM  TOP  REQUEST. 

10  I  PRN<  1  >-3 

I  PR M<  2  >» I TR EQ <  2 »  ITOP  ) 

C  GO  SCHEDULDE  TASK  EXPR 

IF<  ITREQl  2.  ITQP>.£Q  -1  -GO  TO  12 
CALL  EXEC(  24,  NAM  <  I  PRH<  1.  ) ,  IPRMC  2  )  > 

C  DELETE  TOP  REQUEST 
12  I  TREQC  2,  I  TOP  )-0 

C  SET  UP  TOP  REQUEST  TO  POINT  TO  NEXT  REQUEST 
I  MX  T  3  I  TO  P 

IF<  ITREQ<  1,  ITOP)  ,EQ  0  >G0  TO  2  5 
I  TOP»I  TREQ<  1 ,  I  TOP  ) 

C  TIME  REQUEST  OF  0  OFFSET  GO  BACK  AND  SKED  EXPR  WITH  HEW  PARMS 
IF<  TRECK  ITOP). EQ. 0.0) GO  TO  to 
IF(  TREQ<  I  TOP  )  .  LT  .  1  00.  )G0  TO  13 
C  SET  UP  PROPER  TIME  FOR  EXEC  CALL 
J  *2 

I TR-TREQC  ITOP  >71  00  . 

GO  TO  20 
15  J  3 1 


I TR-TREQC  ITOP  ) 

C  SCHEDULE  TSCHD  AFTER  ITR  ELASPSED  TIME 
20  CALL  EXEC<12<0<J<  0<-ITR> 

GO  TO  10 
23  ITOP-O 

CALL  EXEC<6  ) 

RETURN 

END 

END* 
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FTN4,  L 

C  SUBROUTINE  BELT  IS  USED  TO  CALCULATE  THE  DIFFERENCE  IN 
C  TWO  TINES.  THE  STARTING  TINE  IS  LOCATED  IN  LOCATIONS 
C  ITTOP(l)  THRU  I TT  0  P<  5 )  AND  THE  ENDING  TINE  IS  LOCATED  IK 
C  ITIHEC1)  THRU  ITINE<3>.  THE  CALCULATED  DIFFERENCE  IS 
C  RETURNEO  IN  LOCATION  DELTA  AND  IS  IN  10'S  OF  NS. 
SUBROUTINE  DEL T( DELTA  > 

CON  NON  ISTAB<  13, 30  ) , ISTFL<  4. 3  0>,NRESP<  3.30) 

CON  NON  IPCNT<  4  )>  I S  C  8(  7>  20)  /  I  N  D  /  I V  A  R<  2»  226  > 

CON  HON  IRESP<  1  2) ,  I  AFLG(  3  >,  INDAY  (  1  3  >,  IVTC2O0  ) ,  ILOGC  1  0  ) 
CON NON  TREQ<  3  0  >,  ITRESK2, 30  >,  ITT  OP ( 5)  , IT  OP, INXT, TR 
COHHON  INOXR,  IPRN(  3  >,  1ST,  J  J 
CONNON  ISVST,  IBUF<  180  > 

DINE  NS  ION  IBAS£< 5> ,  IDEL7( 3 > 

DATA  IBASE/100,60, 60. 24,  1/ 

C  CALCULATE  DIF  IN  ITTPt  AND  ITINE 
DO  10  J«  1 , 4 

IDELT<  J )»ILOG( J*4>- ITTQPC J  ) 

I  F<  I  D E L T <  d  >  .  GE  .0  >G0  TO  10 
I  LO G <  J  +5  )  *  I  LOG  < d+5  )-l 
I  LOG ( J  +4 )*IL0G<J+4  >  +  IBASE<  J  ) 

IDELT<J)«IL0GCJ  +  4)-ITT0P(J> 

10  CONTINUE 
C  CONVERT  TO  10  OF  NS 

DELTA-IDELT< 1  )+<  ID£LT<2 )*100 .  ) 

OELTA“DELTA+<  IDELT<  3  ) *6  0  00  ) 

DELTf)«OELTA+<  IDELTC  4  >*360000  .  > 

100  RETURN 
END 
ENO* 
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FTN4  ,  L 

C  SUBROUTINE  SCHED  IS  USED  TO  THREAD  IN  TINE  REQUESTS  AS 
C  THEY  OCCUR.  THE  INITIAL  TINE  REQUEST  CAUSES  TASK  TSCHD 
C  TO  BE  SCHEDULED. 

SUBROUTINE  SC H ED ( I S CH ED ,  I H DX ,  I N DX P  > 

C  VARIABLES  USED  IN  THIS  SUBROUTINE  ARE  DESCRIBED  AS  FOLLOWS) 
C  ISCHED-  TINE  REQUEST  PASSED  TO  SCHED 
C  INDX-  INDEX  INTO  SCB  PASSED  TO  SCHED 

C  INDXR-  INDEX  INTO  ITREQ  AND  TREQ  PASSED  TO  CALLING  PROG 
COHN  ON  I S  TABC  IS*  30  ) ,  ISTFL<  4,  30>»MRESP<3,3rt> 

COHN  ON  IPCNT<  4  >,  I S  C  B<  7.  20)  ,  IND.  IV  ARC  2, 2  26  ) 

COMMON  I  RES  PC  12),  IAFLGC  5  >,  IN  DAY*  15  >,  IVTC200  >,  ILOGUO) 
COMMON  TREQ( 30  >,  ITREQC2, 30  >,  ITTOPC  5>, I  TOP/ INXT, TR 
COMMON  I  NDXR,  I  PRN<  3  >,  1ST  ,  J  J 
COMMON  ISVST,  I8UF<  180  ) 

DIMENSION  N  AM  < 3)  , I TTPC  5  ) 

DATA  NAH/2HT3, 2HXX, 2HX  / 

C  TREQ-  ARRAY  OF  TIME  REQUESTS  IN  10  OF  MS 
C  ITREQ-  PARALLELL  ARRAY  TO  TREQ  -INDEX  TO  TREQ  AND  SCB 
C  ITTOP-  TIME  OF  TOP  REQUEST 
C  ITOP-  POINTER  TO  TOP  REQUEST 

C  INXT-  POINTER  TO  NEXT  ENTRY  IN  ITREQ  AND  TREQ 
C  ITR-  TIME  REMAINING  IN  10  Or  MS  OR  IN  SEC 
C  I T I  ME-  ARRAY  TO  STORE  CURRENT  TIME  IN 
C  IYEAR-  CURRENT  YEAR 

C 

C  GET  TIME  REQ  AND  P  TR  TO  SCB  INTO  PROPER  ARRAYS 
I F <  ISCHED . LT. 0  )GQ  TO  3 
T RE Q <  I  NX  T )« ISCHED* 100.0 
GO  TO  3 

3  TREQ< INXT >--ISCHEO 

3  I TREQ< 2,  INXT1-INDX 

C 

C  GET  CURRENT  TIME 

CALL  EXEC<  1  1  ,  ILOG<  3  >,  ILOGC  10  )  > 

C 

C  SEE  IF  THERE  IS  A  TOP  ENTRY 
C 

I F(  I  TOP  HE . 0  >G0  TO  20 
C 

C  NO  SO  SET  UP  VARIABLES  FOR  A  TOP  REQ 
C 

DO  10  1-1,3 

10  l TTOPC  I  1-  ILOGC  1  +  4  > 

I TOP-INXT 
TR-TREQc  INXT) 

TREQC INXT  >-0 
I TREQC  1 ,  INXT  >-0 
IFC  TR . LT  .  100 .  )G0  TO  12 
J  -2 

I TR-TR/1 00 
GO  TO  13 
12  J  -l 

I  TR  -  TR 
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0093 
0094 
0093 
?  09  6 
0097 
0098 
0099 
0  100 
0101 
0102 
0  103 
0  104 
0103 
0  106 
0107 
0  108 
0109 
0110 
0111 


c 

c 

C  SKED  TSCHO  TO  BE  RUN  AFTER  OFFSET  OF  I TR 
C 

13  CALL  EXECC 12. NAH.J , 0, -ITR) 

C 

GO  TO  40 
C 

C  YES  THERE  UAS  A  TOP  ENTRY  SO  SEE  IF  THIS  REQ  IS  LESS 
C 

20  CALL  DELT<  DELTA  ) 

T IHE-TR-DELTA 
D  IF  - T I  HE  - TREQ<  INXT  ) 

;ck»itop 

IF<  OIF .LT  .0  .0  >G0  TO  60 
TREQ<  I CK  )  *0  IF 
DO  30  1-1.5 

30  I  TT  0P(  I  >■  ILOGC  1  +  4  ) 

35  ITREQ< 1. INXT)«ITOP 

I TQP-INXT 
C 

C  SKED  TSCHD  TO  BE  RUN  AFTER  NEU  TOP  TINE 
C 

TR«TR£Q<  I  TOP  ) 

IF<  TR . LT .  100 .  )  GO  TO  25 
J  -2 

I  TR*TR/100 
GO  TO  26 
23  J»1 

I TR  *  TR 

26  CALL  EXECC 12, MAN, J , 0, -ITR) 

C 

C  UPDATE  P  TR  TO  NEXT 
C 

40  IHDXP-INXT 

DO  43  J »  1  ,30 
INUN-J 

I  F<  I  TREQ<  2,  J  )  .  EQ  0  >.J«30 
45  CONTINUE 

30  INXT-INUH 

GO  TO  100 

60  TREQC  T  NXT  >«-D  I  F 

I F<  I  TREQ<  1 ,  ICK >  EQ  .  0 >G0  TO  70 

IPREV-  ICK 

ICK«ITREQ(1,ICK> 

D I F ■ TR  EQ  <  ICK  )-TREQ<  INXT  > 

I  F<  DIF  LT  0  .0  )  GO  TO  60 
T RE Q ( ICK  >»D  IF 
I TR  E  Q<  1 ,  IPREV  )  ■ I  NX  T 
I  TREQ<  1.  I  HX T  )  -  I C  K 
GO  TQ  40 

70  I TREQ<  1 ,  I  CK  >-  INXT 
I  TR  E  Q<  l,  INXTJ-0 
GO  TO  40 
100  RETURN 
END 
E  HO  $ 
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SDS  QUICK  REFERENCE  GUIDE 

This  appendix  contains  summary  information  about  each  of  the  SDS  instructions . 

1.  JOB  CONTROL 

$  — used  to  terminate  each  source  program  line 

NEW!-- required  first  instruction  in  an  SDS  program 
END$— required  last  instruction  in  an  SDS  program 

2.  AFTER  transitional 

AFKT 
AF  K  S 
AF  K  M 
AF  K  H 
AF  V  S 
AF  A(K)  S 
AF  A(V)  S 

Where  K  -  a  constant  value  ranging  from  1  to  32767; 

V=  any  variable  A-Y  containing  from  1  to  32767; 

A  (K)  =  any  constant  element  of  any  array  A-Z  containing  from  1  to 
32787; 

A  (V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  from 
1  to  32767; 

T  =  ticks  of  system  clock  in  10s  of  ms; 

S  =  seconds; 

M  =  minutes; 
and  H  =  hours . 

3.  FOLLOWING  transitional 

FO  K  S  K 
FO  V  S  K 
FO  A(K)  S  K 
FO  A(V)  S  K 
FO  V  S  V 
FO  V  S  A  (K) 

FO  V  S  A  (V) 

FO  A(K)  S  V 
FO  A(K)  S  A(K) 

FO  A(K)  S  A(V) 

FO  A  CVJ  S  V 
FO  A(V)  S  A(K) 

FO  A(V)  S  A  (V) 
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Where  K  =  a  constant  value  ranging  from  1  to  32767  when  defining  * 
count; 

K  =  a  constant  value  ranging  from  1  to  30  when  defining  a  state 
number  other  than  its  own; 

V  =  any  variable  A-Y  containing  from  1  to  32787  when  defining 

a  count; 

V  =  any  variable  A-Y  containing  from  1  to  30  when  defining  a 

state  number  other  than  its  own; 

A(K)  =  any  constant  element  of  any  array  A-Z  containing  from  1  to 
32787  when  defining  a  count; 

A  (K)  =  any  constant  element  of  any  array  A-  T  containing  from  1  to 
30  when  defining  a  state  number  other  than  its  own; 

A(V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  from 
1  to  32767  when  defining  a  count; 

A  (V)  =  any  variable  A-Y  eleme-*  of  any  array  A-Z  containing  from  1 
to  30  whan  defining  a  state  number  other  than  its  own . 


IF  transitional 


KR  K 

V  R  K 
A(F)  R  K 
A(Y;  P.  K 

V  R  V 

V  R  A(K1 

V  R  A(V) 

A(K)  R  V 
A(K)  RA(K) 

A(K)  R  A  (V) 

A(V)  R  V 
A(V)  R  A(K) 

A(V)  R  A  (V) 

Where  K  =  a  constant  value  ranging  from  1  to  32767  when  defining  a 
count; 

K  =  a  constant  value  ranging  from  1  to  12  when  defining  a 
response  bit  number; 

V  =  any  variable  A-Y  containing  from  1  to  32767  when  defining 

a  count; 

V  =  any  variable  A-Y  containing  from  1  to  12  when  defining  a 

response  bit  number; 

A(K)  =  any  constant  element  of  any  array  A-Z  containing  from  1 
to  32787  when  defining  a  count; 

A(K)  =  any  constant  element  of  any  array  A-Z  containing  from  1 
to  12  when  defining  a  response  bit  number; 

A  (V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  from 
1  to  32767  when  defining  a  count; 

and  A(V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  from 
1  to  12  when  defining  a  response  bit  number. 
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5.  IF  transitional  (binary) 


IF  KRB  K 
IF  V  RB  K 
IF  A(K)  RB  K 
IF  A(V)  RB  K 
IF  VRB  V 
IF  V  RB  A(K) 

IF  V  RB  A(V) 

IF  A(K)  RB  V 
IF  A(K)  RB  A(K) 

IF  A(K)  RB  A(V) 

IF  A(V)  RB  V 
IF  A(V)  RB  A(K) 

IF  ACV)  RB  A(V) 

Where  K=a  constant  value  ranging  from  1  to  32767  when  defining  a 
count; 

K  =  a  constant  value  ranging  from  1  to  4095  when  defining  a 
multiple  response  pattern; 

V  -  any  variable  A-Y  containing  from  1  to  32767  when  defining 

a  count; 

V  =  any  variable  A-Y  containing  from  1  to  4095  when  defining 

a  multiple  response  pattern; 

A(K)  =  any  constant  element  of  any  array  A-Z  contal’Ung  from  1  to 
32787  when  defining  a  count; 

A  (K)  *  any  constant  element  of  any  array  A-Z  containing  from  1  to 
4095  when  defining  a  multiple  response  pattern; 

A  (V)  =  any  variable  A-Y  elcnent  of  any  array  A-Z  containing  from 
1  to  32767  when  defining  a  count; 

A  (V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  from 
1  to  4095  when  defining  a  multiple  response  pattern . 

6.  IF  modified  (relational) 

IF  V  ZV 
IF  A(K)  Z  V 
IF  A(V)  Z  V 
IF  V  X  A  (K) 

IF  V  Z  A(V) 

IF  A(X)  Z  A(K) 

IF  A  (K)  Z  A(V) 

IF  A(V)  Z  A(K) 

IF  A(V)  Z  A(V) 
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.....  - 


Where 


V  -  any  variable  A-Y  containing  from  -32768  to  32767; 

A(K)  =  any  constant  element  of  any  array  A-Z  containing  from 

-32788  to  32787; 

A(V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  from 
-32788  to  32787; 

and  Z  =  any  one  of  the  relational  operators  BQ ,  NE ,  LT ,  GT ,  LB ,  or  GB . 

7 .  STATE  modifying  or  Identifying 

ST  K 
STK 

Where  K  -  a  constant  value  ranging  from  1  to  30  except  in  programs 
using  the  logical  instruction  in  which  case  the  30  would  be 
reduced  by  one  for  each  additional  element  of  the  logical  instruction 

8  ■  THEN  modifying  or  identifying 

TH  Y. 

TH  Y 
TH  A  fK) 

TH  A  (V) 

Where  K  =  a  constant  equal  to  the  next  desired  state  number; 

V  3  any  variable  A-Y  containing  a  value  equal  to  the  next 

desired  state  number; 

A(K)  a  any  constant  element  of  any  array  A-Z  containing  a  value 
equal  to  the  next  desired  state  number; 
and  A  (V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  a 
value  equal  to  the  next  desired  state  number. 

9.  VARIABLE  modifying  identifying 

VAR  V=K 
VAR  V=V 
VAR  V=A(K) 

VAR  V=A  (V) 

VAR  A  (K)  =K 
VAR  A  (K)  =V 
VAR  A  (K)  =A  (K) 

VAR  A(K)=A  (V) 

VAR  A  (V)  =K 
VAR  A(V)=V 
VAR  A(V)=A(K) 

VAR  A(V)=A  (V) 

VAR  V=K,  A (K)  =V ,  A (V)=A (K)  etc. 

VAR  X=X+K 


Where  K  *  a  constant  value  ranging  from  -32768  to  32767; 

V  =  any  variable  A-Y  to  be  initialized; 

V  =  any  variable  A-Y  containing  a  value  ranging  from  -32768 

to  32787; 

A(K)  =  any  constant  element  of  any  array  A-Z  to  be  initialized; 

A(K)  =  any  constant  element  of  any  array  A-Z  containing  a  value 
ranging  from  -32768  to  32767; 

A(V)  =  any  variable  A-Y  element  of  any  array  A-Z  to  be  initialized; 
A(V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  a 
value  ranging  from  -32768  to  32767; 
and  X  »  either  V ,  A  (K) ,  or  A  (V) . 

10.  DIMENSION  modifying  or  identifying 
DIM  A,L 

Where  A  =  any  array  name  A-Z; 

and  L  =  the  length  of  the  array  which  cannot  exceed  200  words . 

If  more  than  one  array  is  dimensioned  (maximum  of  four) 
the  combined  total  of  the  size  of  the  arrays  cannot  exceed 
200  words. 

11.  STIMULUS  modifying  or  identifying 

ST  K 
ST  V 
ST  A(K) 

ST  A  (V) 

SB  K 
SB  V 
SB  A(K) 

SB  A(V) 

Where  SB  =  an  optional  character  set  for  the  character  S3t  ST; 

K  =  a  constant  value  ranging  from  1  to  4095; 

V  =  any  variable  A-Y  containing  a  value  ranging  from  1  to 

4095; 

A(K)  =  any  constant  element  of  array  A-Z  containing  a  value 
from  1  to  4095; 

and  A(V)  =  any  variable  A-Y  element  of  any  array  A-Z  containing  a 
value  ranging  from  1  to  4095 . 

12.  SUBSTATE  modifying  and  identifying 


Where  SS  =  an  optional  character  set  for  the  character  set  SU; 

and  K  =  a  constant  value  ranging  from  1  to  30  and  is  equal  to  a 

state  number  that  ip  defined  in  the  SDS  program . 


13.  AND/OR  logical 


X  OR  Y 

X  OR  Y  OR  Z  etc  . 

X  AND  Y 

X  AND  Y  AND  Z  etc . 


Where  X,  Y,  and  Z  =  any  of  the  transitional  instructions. 

NOTE:  The  use  of  LOGICAL  instructions  requires  the  use  of  a  state  table 
entry  for  each  element  X ,  Y ,  or  Z  and  will  therefore  reduce  the  maximum 
number  of  states  from  30  to  30  minus  the  number  of  additional  logical  instruction 
elements . 


14.  CRT,  PTR,  PUN,  RPR  lnput/outpul 

CRT  V 
CRT  A(K) 

CRT  MV) 

CRT  V;  A  (K) ;  A  (V) ;  V  etc . 

CRT  A* 


Where  V  =  any  variable  A-Y; 

A  (K)  =  any  constant  element  of  any  array  A-Z; 

A  (V)  =  any  variable  A-Y  element  of  any  array  A-Z; 
and  A*  =  any  entire  array  A-Z. 

NOTE:  The  instructions  PTR,  FUN,  and  RDR  are  written  in  the  same  format 
ao  the  instruction  CRT . 
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RTE-II  INITIALIZATION  PROCEDURE 
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RTE-It  INITIALIZATION  PROCEDURE 

The  procedure  used  to  operate  the  HP-2100  computer  using  the  RTE-n 
operating  system  i r-  described  in  Table  D-I.  Whan  the  RTE-n  system  is 
initially  brought  up ,  it  runs  its  file  manager  program  FMGR  which ,  in  turn , 
runs  a  transfer  file  that  produces  the  message  in  Figure  D-l . 

Table  D-I 

Initializing  Procedure  for  RTE-n 


1 .  Insert  the  disc  cartridge  containing  the  SDS  system  into  the  disk 
drive  and  move  the  disc  load-unload  switch  to  the  load  position.  Wait  for 
the  "Drive  Ready"  light  to  illuminate. 

2.  Set  P  register  to  777500. 

3 .  Set  S  register  to  0 . 

4 .  Depress  External  Preset ,  Internal  Preset ,  and  Run  switches .  The 
computer  should  halt  with  102077g  in  the  display  register . 

5 .  Depress  the  Run  switch  and  the  SDS  welcome  message  should  be 
printed  on  the  computer  console . 

6.  The  SDS  is  now  ready  to  be  used  as  described  in  this  report. 


SET  TIME 
:  SV,  4 
te,***** 

TE,*****  WELCOME  TO  THE  SDS  PLEASE  TYPE  RU.OPCOM  WHEN  YOU 
TE ,  *****  ARE  READY  TO  BEGIN  USING  THE  SDS  . 

TE ,  ***** 


Figure  D-l .  The  SDS  Welcome  Message 


The  last  line  in  this  welcome  message  contains  a  colon  (: )  which  is  the 
pr  mpt  character  for  the  file  manager  program  FMGR .  The  prompt  character 
(: )  indicates  that  the  system  will  accept  any  valid  FMGR  command.  The  system 
expects  use  of  the  file  manager  program  within  a  five  minute  period,  and  if  this 
use  does  not  occur,  the  FMGR  program  will  automatically  be  terminated  by  RTE-n. 
When  the  FMGR  program  is  terminated  by  RTE-n,  the  message  In  Figure  D-2 
is  sent  to  the  CRT,  and  the  system  is  now  ready  to  accept  any  RTE-n  commands. 


SET  TIME 

:SV,4 

TE,***** 

TE,*****  WELCOME  TO  THE  SDS  PLEASE  TYPE  RU.OPCOM  WHEN  YOU 
TE,*****  ARE  READY  TO  BEGIN  USING  THE  SDS 
TE , ***** 

:  #END  FMGR 


Figure  D-2 .  Automatic  Time-Out  of  FMGR 


The  SDS  can  be  run  from  either  the  FMGR  program  or  RTE-n.  If  in 
FMGR  mode .  as  implied  by  the  prompt  character  colon ,  the  user  should  type 
RU.OPCOM  to  run  the  SDS .  If  in  RTE-n  mode,  as  implied  by  no  prompt 
character ,  the  user  should  type  *RU  ,OPCOM  to  run  the  SDS .  ActuaUy ,  any 
key  could  be  struck  in  place  of  the  asterisk  but  the  asterisk  is  used  in  this 
description  for  the  sake  of  simplicity .  For  a  more  detailed  description  of  using 
the  FMGR  and  RTE-H  commands  refer  to  Hewlett-Packard's  manuals  related  to 
Real-Time  Executive,  Batch/ Spool  Monitor,  and  Operating  System .  Other 
manuals  that  may  be  helpful  are  the  RTE-n  and  Batch-Spool  Monitor  Pocket 
Guide,  and  the  Operating  and  Service  Manual  for  the  HP-2100  computer. 
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CREATING  DISC  FILE  OPIN 

There  are  two  methods .  other  than  using  the  SDS ,  that  may  be  used  to 
create  the  disc  file  OPIN  that  can  be  used  for  input  of  source  programs  to  the 
SDS .  The  first  method  is  using  the  FMGR  store  command.  This  requires  opera¬ 
ting  under  the  FMGR  program,  as  designated  by  the  colon  prompt  character,  and 
that  no  disc  file  named  OPIN  exists .  If  a  disc  file  named  OPIN  exists ,  it  may  be 
purged  by  the  FMGR  command  PU  ,OPIN .  The  procedure  In  Figure  E-l  can  be 
used  to  create  a  disc  file  OPIN  using  the  FMGR  store  command .  Figure  E-l  also 
exhibits  the  procedure  for  running  this  newly  created  file . 

:  PU.OPIN 
:  ST, 1, OPIN 
NEWS 

ST1  AF  10  S  TH  2$ 

ST2  AF  10  SS 
ENDS 


NOTE:  After  typing  the  ENDS  instruction  the  user  must  type  a  control  D .  This 
is  accomplished  by  depressing  the  CTRL  key  and  the  character  D  simultaneously . 


:  RU.OPCOM 
@ 

NEWS 

INPUT  FROM  DISK?? 
YES 

NEWS 


ST1  AF  10  S  TH  2S 
6 

ST2  AF  10  SS 

e 

ENDS 

START  EXP? 

YES 

END  OF  EXP  .  1 

♦GO.OPCOM 


The  second  method  used  to  create  the  disc  file  OPIN  is  to  use  the  RTE-n 
program  EDITOR.  This  requires  operating  under  the  FMGR  program ,  as 
designated  by  the  colon  prompt  character,  and  that  no  disc  file  named  OPIN 
exists .  If  a  disc  file  named  OPIN  exists ,  it  may  be  purged  by  the  FMGR  com- 


mand  PU,  OPIN.  The  procedure  shown  in  Figure  E-2  can  be  used  tn  create  a 
disc  file  OPIN  using  the  EDITOR  program .  Figure  E-2  also  exhibits  the  proce¬ 
dure  for  running  this  newly  created  file . 


:  PU , OPCOM 
:RU,  EDITOR 
SOURCE  FILE? 

/  enter  a  blank  and  carriage  return 

EOF 

/  NEWS  note  that  each  line  is  preceded  by  a  blank 

/  ST1  AF  10  S  TH  2$ 

/  ST  2  AF  10  3$ 

/  ENDS 

/ECOPIN  ends  editor  creates  file  OPIN 
END  OF  EDIT 
:RU,  OPCOM 
@ 

NEWS 

INPUT  FROM  DISC?? 

YES 

@ 

NEWS 

0 

ST1  AF  10  S  TH  2S 
@ 

ST2  AF  10  SS 
S 

ENDS 

START  EXP? 

YES 

END  OF  EXP.  1 
•GO, OPCOM 

NOTE:  Refer  to  Hewlett-Packard's  Batch/Spool  Monitor  and  Editor  manuals 
for  more  information  on  store  command  and  editor  commands . 
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SDS  ERRORS 

The  operator  communications  program  reports  source  language  errors 
immediately  following  the  line  in  which  the  error  cccurr6d .  There  are  two 
basic  error  messages  printed  on  the  CRT  when  an  error  occurs  during  the 
source  language  input  of  an  SDS  program .  These  messages  are ,  "Bad 
Operator" ,  and  "Outside  Table" .  For  information  concerning  any  other  error 
messages  refer  to  the  appropriate  Hewlett-Packard  manual. 

Tha  "Bad  Operator"  message  occurs  when  the  source  language  line 
violates  the  proper  input  format  for  instructions  as  described  in  Section  V , 
the  SDS  Instruction  Set.  Some  examples  of  these  types  of  errors  are  shown 
in  Figure  F-l . 

RU.OPCOM 

@ 

NEW* 

INPUT  FROM  DISK?? 

NO 

0 

ST1  AF  TER  1  S  TH  2$ - embedded  blank  in  AFTER 

3 AD  OPERATOR 
@ 

ST1  AFTER  1  S  TH  2* 

@ 

ST2  A  1  S  TH  3$ - AF  instruction  incomplete 

BAD  OPERATOR 
@ 

ST2  AF  1  S  TH  3* 

© 

ST3  AF  1  S  TH4* - no  blank  following  TH 

BAD  OPERATOR 
© 

ST3  AF  1  S  TH  4$ 

0 

ST4  AF  1  S  VAR  A=1  TH  5$ - VAR  instruction  out  of  order 

BAD  OPERATOR 
@ 

ST4  AF  1  S  TH  5  VAR  A=l$ 

0 

ST5  CRT  A  AF  1  S$ — - AF  instruction  must  follow  ST5 

BAD  OPERATOR 
0 

ST 5  AF  1  S  CRT  A* 

0 

END* 

START  EXP? 

NO 

•GO.OPCOM 
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Figure  F-l  is  not  meant  to  give  a  complete  list  of  all  possible  bad 
operator  errors;  it  does,  however,  give  examples  of  some  of  the  most  common 
f  nors .  Note  that  when  errors  occur ,  retype  the  corrected  line  in  order  to  cor¬ 
rect  the  error .  Review  the  SDS  Instruction  Set,  Sectioi.  V ,  if  bad  operator 
errors  occur  that  are  not  easily  recognized,  checking  for  proper  format  of  all 
instructions  in  the  line  in  which  the  error  occurred . 

The  "Outside  Table"  error  occurs  when  a  value  has  been  issigned  to  a 
dimension  statement,  a  state  number,  or  a  substate  number  that  is  larger 
than  the  maximum  number  allowed .  Some  examples  of  these  types  of  errors 
are  shown  in  Figure  F-2 . 

:  RU.OPCOM 
@ 

NEWS 

INPUT  FROM  DISC?? 

NO 

9 

ST31  AF  10  S  TH  32$ - state  number  larger  than  30 

OUTSIDE  TABLE 
9 

ST1  AF  10  S  TH  2  SS  31$ - substate  number  larger  than  30 

OUTSIDE  TABLE 
9 

ST1  AF  10  S  TH  2  DIM  A, 300$ - array  size  greater  than  200  words 

OUTSIDE  TABLE 
9 

END$ 

START  EXP? 

NO 

♦GO ,  OPCOM 
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APPENDIX  G 


SAMPLE  SDS  PROGRAM  RUN  AND  SAMPLE  LOG 
SAMPLE  PROGRAM  RUN 

The  program  used  In  the  sample  is  a  fixed  interval  (FI)  schedule  with  a 
master  counter  in  state  #1  to  limit  the  number  of  reinforcements  to  five .  The 
CRT  instruction  in  state  #3  is  used  to  show  that  the  program  did  execute  states 
#2  and  #3  five  times .  Figure  G-l  describes  the  necessary  state  diagram  and  is 
also  a  copy  of  the  console  after  the  run  is  complete . 
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MMiM - 


- .  *  -J* 


FOLa  5aSa3 


: RU,  OPCOM 
@ 

NEW! 

INPUT  FROM  DISC?? 

YES 

0 

NEW! 

9 

ST1  FOL  5  S  3  SS  2  VAR  A=0t 
9 

3T2  AP  5  S  TH  3  CRT  A$ 

0 

ST3  AF  10  T  TH  2  ST  1  VAR  A=A+1$ 

9 

END* 

START  EXP? 

YES 

0 

1 

2  output  from  CRT  A  Instruction 

3 

4 

END  OF  EXP  1 

•GO,  OPCOM 


Figure  G-l .  Diagram  of  Sample  Program 
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SAMPLE  LOG 


The  sample  log  shown  In  Figure  G-2  was  written  on  the  magnetic  tape 
during  the  running  of  the  program  described  in  Figure  G-l .  Table  G-l 
describes  the  log  events  sequentially  in  terms  of  log  entries.  Refer  to  Section 
VH ,  the  SDS  Log .  for  contents  of  various  log  entries . 


Table  G-I 

Log  Events  from  Log  in  Figure  G-2 


Log  entry  # 

Event 

Elapsed  time 
since  previous  entry 

1 

start  of  experiment 

— 

2 

start  of  state  #1 

10  ms 

3 

start  of  state  #2 

10  ms 

4 

end  of  state  #2 

b  seconds 

5 

staxt  of  state  #3 

10  ms 

6 

end  of  state  #3 

110  ms 

7 

start  of  state  #2 

10  ms 

8 

end  of  state  #2 

5  seconds 

9 

start  of  state  #3 

10  ms 

10 

end  of  state  #3 

110  ms 

11 

start  of  state  #2 

10  ms 

12 

end  of  state  #2 

5  seconds 

13 

start  of  state  #3 

10  ms 

14 

end  of  state  #3 

110  ms 

15 

start  of  state  #2 

10  ms 

18 

end  of  state  #2 

5  seconds 

17 

start  of  state  #3 

10  ms 

18 

end  of  state  #3 

110  ms 

19 

start  of  state  #3 

10  ms 

20 

end  of  state  #2 

5  seconds 

21 

start  of  state  #3 

10  ms 

22 

end  of  state  #1 

25  seconds  640  ros 
since  it  began 

23 

end  of  state  #3 

10  ms 

24 

end  of  experiment 

25  seconds  860  ms 
since  it  began 

r 


SAMPLE 


REC#  00001 


001000 

000001 

000000 

000000 

0C0126 

000010 

000007 

000010* 

000335 

002000 

000001 

000001 

000000 

000127 

000010 

000007* 

000010 

000335 

002000 

000001 

000002 

000000 

000130 

000010* 

000007 

000010 

000335 

003000 

000001 

000002 

000030 

000130* 

000015 

000007 

000010 

000335 

002000 

000001 

000003 

003000* 

000131 

000015 

000007 

000010 

000335 

003000 

000001 

000003* 

000000 

000000 

000018 

000007 

000010 

000335 

002000 

000001* 

000002 

000000 

000001 

000016 

000007 

000Q10 

000335 

003000* 

000001 

000002 

000000 

000001 

000023 

000007 

000010 

000335* 

002000 

000001 

000003 

000000 

000002 

000023 

000007 

000010* 

000335 

003000 

000001 

000003 

000000 

000015 

000023 

000007* 

000010 

000335 

* 

REC#  00002 

002000 

000001 

000002 

000000 

000016 

000023 

000007 

000010*  ! 

000335 

003000 

000001 

000002 

000000 

000016 

000030 

000007*  ! 

000010 

000335 

002000 

000001 

000003 

000000 

000017 

000030* 

000007 

000010 

00C335 

003000 

000001 

000003 

000000 

000032*  j 

000030 

000007 

000010 

000335 

002000 

000001 

000002 

000000*  1 

000033 

000030 

000007 

000010 

000335 

003000 

0000C1 

000002*  j 

000000 

000033 

000035 

000007 

000010 

000335 

002000 

000001* 

000003 

000000 

000034 

000035 

000007 

000010 

000335 

003000* 

000001 

000003 

000000 

000047 

000035 

000007 

000010 

000335* 

002000 

000001 

000002 

000000 

000050 

000035 

000007 

000010*  1 

000335 

003000 

000001 

000002 

000000 

OOOObO 

000042 

000007* 

000010 

000335 

* 

REC#  00003 

002000 

000001 

000003 

000000 

000051 

000042 

000007 

000010* 

G00335 

003000 

000001 

000001 

000000 

000063 

000042 

000007* 

000010 

000335 

003000 

000001 

000003 

000000 

000064 

000042* 

000007 

000010 

000335 

005000 

000001 

000000 

000000 

000064* 

000042 

000007 

000010 

000335 

* 

Figure  G-2 .  Octal  Listing  of  SDS  Log 
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-S_ - 

|  Ths  Stats  Diagram  System-  (SDS)  was  developed  to  solve  this  problem . 

(sDS  la  a  tool  that  can  be  used  by  investigators  in  designing  and  running  psy¬ 
chophysical  experiments  on  Hewlett-Packard's  HP-2130  series  computers.  SDS , 
as  presently  designed ,  is  capable  of  running  only  those  experiments  that  use 
piscreto  inputs  and  outputs .  The  system  offers  the  investigator  a  high  level 
language  with  which  he  is  already  familiar  or  can  easily  learn ,  thus  removing 
the  burden  of  solving  these  types  of  problems  using  more  complex  computer 
languages .  Written  in  FORTRAN  TV  language  SDS  is  an  interactive  system  that 
does  not  require  assembling  or  compiling  of  its  programs.  The  system  accepts 
source  language  statements'  from  either  the  system  console  or  disc  files  and  allows 
the  program  to  be  run  immediately  upon  completion  of  this  input  process .  While 
SD3  does  not  solve  ell  of  thr  protlems  encountered  in  computerizing  psychological 
experiments-,  its-  modular  design  should  ease  such  future  modifications  as  dealing 
with  continuous  variables ,  calling  asternal  programs,  and  controlling  multiple 
experiments .  ^ 
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_ UNCLASSIFIED _ 

»«CU«lTY  CLASS) FIC ATiOn  QW  this  »A O—  tnfrvt) 


ICCUmTY  CLASSIFICATION  OF  THIS  NAM  ("Win*  Dmm  Inlam) 


Vhe  State  Diagram  System  (SDS)  was  developed  to  solve  this  problem . 

SDS  la  a  tool  that  can  be  used  by  Investigators  in  designing  and  running-  psy- 
bhophysical  experiments  on  Hewlett-Packard's  HP-2100  series  computers.  SDS , 
las  presently  designed ,  is  capable  of  running  only  those  experiments  that  use 
disersto  inputs  and  outputs .  The  system  offers  the  Investigator  a  high  level 
language  with  which  he  is  already  familiar  or  can  easily  learn .  thus  removing 
the  burden  of  solving  these  types  of  problems  using  mors  complex  computer 
Languages .  Written  in  FORTRAN  TV  language  SDS  is  an  interactive  system  that 
does  not  require  assembling  or  compiling  of  its  programs.  The  system  accepts 
source  language  statements  from  either  the-  system  console  or- disc  files  and  allows 
the  program  to  be  run  immediately  upon  completion  of  this  input  process .  While 
SD8  does  not  solve  all  of  the  problems  encountered  in  computerizing  psychological 
experiments-,  its-  modular  design  should  ease  such  future  modifications  as  dealing 
with  continuous  variables ,  celling  external  programs ,  and  controlling  multiple 
experiments .  _ 
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